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DECLARATION UNDER 37 C.F.R. S1.131 
I, Patrick J. Coyne, state that I am one of the named applicants of the 
above-identified application and am one of the co-inventors of the subject matter 
described and claimed therein. 

1 . I am the sole inventor of the invention of claims 1-3, 7-1 1 , 23-25, and 29- 
33 of the above-identified application, as reflected in the Reply filed with this 
Declaration. 

2. I completed the invention of claims 1-3, 7-11, 23-25, and 29-33 of the 
above-identified application, as reflected in the Reply filed with this Declaration, in the 
U.S. at least as early as November 3, 1999. 

3. In accordance with 37 C.F.R. §1.131 and M.P.E.P. §715.07, attached 
hereto is a copy of a synopsis of software embodying and memorializing that the 
invention of claims 1-3, 7-10, 23-25, and 29-32 of the above-identified application, as 
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reflected in the Reply filed with this Declaration, was completed in the U.S. at least as 
early as November 3, 1 999. 

I declare further that all statements made herein of my own knowledge are true 
and that all statements made on information and believe are believed to be true; and 
further, that the statements were made with the knowledge that willful false statements 
and the like so made are punishable by fine or imprisonment, or both, under Section 
1001 of Title of the United States Code, and that such willful false statements may 
jeopardize the validity of the application or any patents issuing thereon. 




Patrick J. Coyi 
Inventor 
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Lotus Notes Database Synopsis - Generated at 05:36:17 PM on 1 1/03/1999 



Database Information 

Server 

Path: 

Title: 

Date Created: 

Last Data Modification: 

Last Non-Data Modification: 

Categories: 

Template Name: 

inherit Design From Template: 

Text Compression: 

Full-Text Indexing: 

Local Encryption Key Name: 

Form Information 

Name: 

Alias: 
Alias: 

Last Modification: 

Comment: 

Type: 

Window Title Formula: 
Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Keyword User Interface: 
Allowable Keywords: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



CN=CSRSLN01/O=CSRS 
IP\IPAgenda2_5:nsf 
IP Agenda Docket V2.5.5 
03/18/1999 11:50:32 AM 
11/03/1999 04:38:52 PM 
09/02/1999 04:50:22 PM 
[None Assigned] 
[Not Assigned] 
IPAgenda254T 
Disabled 
Disabled 
[Not Assigned] 



Archive Profile 

ArchiveProfile 

Archive Profile 

03/18/1999 02:21:20 PM 

[Not Assigned] 

Document 

"Archive Profile" 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 

ArchiveExpired 

Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Check Boxes 

Archive Completed Documents | 

Yes 

No 

Disabled 
No 

"Yes" 



Is Scripted: 
Field: 

Datatype: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Input Validation Formula: 



Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Keyword User Interface: 
Allowable Keywords: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi- Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Keyword User Interface: 
Allowable Keywords: 
Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 



No 

ExpiredLife 

Number 

General 

No 

No 

No 

[Not Assigned} 

Editable 

No 

Disabled 

No 

7 

@lf(ExpiredLife < 0; 
@Failure("Number cannot be 
negative."); ©Success); 
No 

ArchiveLog 

Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Check Boxes 

Generate an Archive Log each 
time an archive occurs | Yes 
No 

Disabled 
No 
"Yes" 
No 

IncludeDoclinks 

Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Check Boxes 

Include document links | Yes 
No 

Disabled 

No 

No 

ProfileEditors 

Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Standard 

No 

No 

Disabled 

No 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Action: 
Formula: 



Action: 

Formula: 
Action: 

Formula: 



No 

ArchiveServer 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

ArchivePath 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Close 

@PostedCommand([Fil 
eCloseWindow]); 
Save Profile 

@PostedCommand([FileSave]); 
Instructions 

@DialogBox("(Archiveln 
structions)"; [AutoVertFit] : 
[AutoHorzFit]); 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(Globals) 

Option Public 
%INCLUDE "Isconst.lss" 
Dim s As NotesSession 
Dim w As NotesU I Workspace 
Dim db As NotesDatabase 
Dim existingdb As NotesDatabase 
Dim archivedb As NotesDatabase 
Dim view As NotesView 
Dim note As NotesDocument 
Dim profile As NotesDocument 
Dim archivedoc As NotesDocument 
Dim doc As NotesUIDocument 
Dim DocWasSaved As Integer 
Dim DoNotClose As Variant 
Dim ExistingServer As String 
Dim ExistingPath As String 
Sub Initialize 
End Sub 

Sub ProcessExistingArchiveDB 
%REM 

an existing archive already exists and the user has choosen to create a new one 
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this function gets called on one of two occasions 

either the document has a value in the tmpArchivePath field 

or the user entered a server and path that has an existing database 

we need to handle both cases 

%END REM 

End Sub 

Sub ProcessNonExistingArchiveDB 
On Error Goto ProcessError 
On Error 4005 Goto DbCreateError 

Vender the dialog box to get the location of the archive database 
If (w.DialogBox( ,, (ArchiveProfileDlg)Mrue,True, M Specify New Location")) Then 
'see if the archive database exists 

Set archivedb = New NotesDatabase(note.ArchiveServer(0),note.ArchivePath(0)) 
If (archivedb.lsOpen) Then 

Msgbox "Database already exists. Enter a new location" 

ProcessNonExistingArchiveDB 
Else 

Set archivedb = db.CreateCopy(note.ArchiveServer(0),note.ArchivePath(0)) 
archivedb.Title = db.Title &" (Archive)" 
End If 

Call doc.Reload 
Call doc.Refresh 
Else 

note.ArchiveServer = "" 

note.ArchivePath = "" 
End If 
Exit Sub 
DbCreateError 

Select Case MsgboxfError creating archive database. The server may be down or you :" 

don't have access to create new 
databases on the server. Click 
Yes to try a different location 
now or No to 
cancers-Error) 

Case 6 

ProcessNonExistingArchiveDb 

End Select 

Exit Sub 
ProcessError 

Msgbox Error & " - (ProcessNonExistingArchiveDB)" 

Exit Sub 
End Sub 

Sub ProcessArchiveDbExists 

this function gets called if a database already exists in the tmpArchiveServer field 
'render the dialog box to get the location of the archive database 
On Error 4005 Goto DbCreateError 

If (w.DialogBoxaProcessExistingDbDIgJ-Jrue.True^Specify New Location")) Then 
On Error Resume Next 
'see if the archive database exists 

Set archivedb = New NotesDatabase(note.ArchiveServer(0) t note.ArchivePath(0)) 
If (archivedb.lsOpen) Then 

Msgbox "Database already exists. Enter a new location" 

ProcessArchiveDbExists 
Else 



4 



Call CreateNewArchiveDB 
archivedb.Title = db.Title & ■ (Archive)" 
End If 

Call doc.reload 
Call doc.refresh 
End If 
Exit Sub 
DbCreateError 

Select Case Msgboxf Error creating archive database. The server may be down or you 

don't have access to create new 
databases on the server. Click 
Yes to try a different location 
now or No to 

Case 6 cancel.»,36-EnoO 

ProcessNonExistingArchiveDb 
End Select 
Exit Sub 
End Sub 

Sub CreateNewArchiveDB 

On Error 4005 Goto DbCreateError 

On Error Goto ProcessError 
•first, create the archive database 

Set archivedb = db.CreateCopy(note.ArchiveServer(0) f note.ArchivePath(0)) 
if the profile says to copy new documents, then copy them now 
If (note.CopyOptions(O) = "1 ") Then 
Set allDocs = existingdb.AI!Documents 
For i = 1 To allDocs.Count 

Set archivedoc = allDocs.GetNthDocument(i) 
^ Callarchivedoc.CopyToDatabase(archivedb) 

End If 

'if the profile says we should delete the original archive database, then remove it 
If (note.DeleteOptions(O) = "1") Then Call existingdb.Remove 
Exit Sub 

DbCreateError 

Select Case MsgboxfError creating archive database. The server may be down or you 

don't have access to create new 
databases on the server. Click 
Yes to try a different location 
now or No to 

Cases cancel.",36.-ErroO 

ProcessNonExistingArchiveDb 
End Select 
Exit Sub 
ProcessError. 

Msgbox Error & n - (ProcessNonExistingArchiveDB)" 

Exit Sub 
End Sub 
(Form) Archive Profile 

Sub Queryclose(Source As Notesuidocument, Continue As Variant) 

If (DocWasSaved = False) Or (profile Is Nothing) Or DoNotClose Then Exit Sub 

ItemList = profile. Items 
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Forall n In ItemList 

profile.Removeltem(n.Name) 
End Forall 

note.CopyAIIItems profile 
profile.Sa veOptions = "1" 
profile.save True, True 
End Sub 

Sub Querysave(Source As Notesuidocument, Continue As Variant) 
DocWasSaved = True 
DoNotClose = False 

If Not(profile Is Nothing) Then note.SaveOptions = "0" 

If (note.ArchiveServer(0) = "") Then Msgbox "You will need to specify a server for the 

Archive Database before you 
can archive documents.", 16 

If (note.ArchivePath(0)="") Then Msgbox "You will need to specify a path to the Archive 

Database before you can 
archive documents.'\16 

source.Reload 

source.RefreshHideFormulas 
End Sub 

Sub Postopen(Source As Notesuidocument) 
'initialize global variables 
Set note = source.Document 
Set w * New NotesUIWorkspace 
Set s = New NotesSession 
Set db = s.CurrentDatabase 
Set view = db.GetViewCArchiving") 
Set doc = source 

turn off auto reload to make processing faster 

source.AutoReload = False 

'if this is not a new doc, we don't need to continue 

If Not (source.lsNewDoc) Then Exit Sub 

■get the existing profile 

key = "Archive Profile" 

Set profile = view.GetDocumentByKey(key,False) 
If profile Is Nothing Then 

'an existing profile was not found 

note.ProtectFromArchive = 1 

note.ExcludeFromView = "D" 

note.From = "Archiving" 

note.Subject = "Archive Profile" 

note.Categories = "(Archive)" 

Call note.ReplaceltemValueC_Viewlcon" t 11) 

source.reload 
Else 

'copy the profile fields to this document 
ItemList = note.ltems 
Forall n In ItemList 

note.Removeltem(n.Name) 
End Forall 

profile.CopyAllltems note 
source.Reload 

If source.EditMode Then source.Refresh 
End If 
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( 



DocWasSaved = False 
End Sub 

Name: 

Last Modification: 

Comment: 

Type: 

Window Trtle Formula: 



Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: - 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Shared Field Reference: 



ClientForm 

04/20/1999 02:06:09 PM 
[Not Assigned] 
Document 

@lf(@lsNewDoc; "New Client"; 
Client_Name + " [- + Client No 

+ T>; 

Yes 

Yes 

Yes 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 

SendTo 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

DocType 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

"Client Form- 
No 

ClientDocID 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@Text(@DocumentUniquelD); 
No 

PropClose 
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Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Title 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

-None-| 

Dr.|Dr. 

Prof.|Prof. 

Mr.|Mr. 

Ms.|Ms. 

MissjMiss 

Mrs.|Mrs. 

No 

Disabled 

No 

No 

FirstName 
Text 

First name(s) and nicknames - 
e.g. John; Johnny 
Editable 
No 

Disabled 

Yes 

No 

Middlelnrtial 

Text 

Middle Initial with a trailing 
period (optional). 
Editable 
No 

Disabled 

Yes • - 

No 

LastName 
Text 

Last name - e.g. Smith. 

Editable 

No 

Disabled 

Yes 

No 

Suffix 

Keywords 
{Not Assigned] 
Editable 
Standard 
No 

-None-| 
Jr.|Jr. 
Sr.|Sr. . 
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Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 



HI 
No 

Disabled 

No 

No 

StreetAddress 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

City' 

Text 

[Not Assigned) 

Editable 

No 

Disabled 

No 

No 

State 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

ZIP 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Country 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

CiientJSIame 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Client_No 



Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Graphic Button 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



Keywords 

[Not Assigned] 

Editable 

Standard 

Yes 

10020 

16980 

26290 

29610 

38100 

41920 

42280 

No 

Disabled 

No 

No 

ContactJSIame 
Names 

Comma, Semicolon 

Semicolon 

[Not Assigned] 

Editable 

No 

Disabled 
No 

@Trim(Title + n H + FirstName + 
"" + MkWl8lnillal + "" + 
LastName + * n + Suffix); 
No 

ContactJMamejl 
Text 

.Comma, Semicolon 
Semicolon 
[Not Assigned] 
Computed for display 
No 

Disabled 
No 

@lf(Contact_Name = ■"; 
@Trim(Title + " " + FirstName + 
w " + Middlelnitial + n " + 
LastName + rt " + Suffix); 

Contact_Name); 
No 

Contact_Address 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

@Trim(StreetAddress + 
@lf(City != ,,n ; ©NewLine + City 
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Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 
Help Description: 
Field Type- 
Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Graphic Button 

* Formula: 



Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display MulthValue Separator 
Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 



M ft. 
I I I 



+ @lf(State != ,m &Ci1y != 
"") + State; "")); 
@Trim(BusinessAdd ress) ; 
Yes 

Contact_Address 1 
Text 

[Not Assigned] 
Computed for display 
No 

Disabled 
No 

@lf(Contact_Address = ""; 
@Trim(StreetAddress + 
@lf(Ciiy != ©NewLine + City 
+ @lf(State 1= ,m &City != 
"") + State + ■ n + ZIP + " » + 
@NewLine + Country; "")); 
Contact_Address); 
No 



@PialogBoxf(Business 
AddressHelper) 1 ;; [AutoVertFit] : 
[AutoHorzFit] : [NoNewFields]; 
"Business Address"); 
LOB 

Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Standard 

Yes 

Advertising 

Computer-Related Equipment 
and/or Services 
Consumer Products 
Defense 
Electronics 

Environmental Remediation 
Natural Resources 
Software 
No 

Disabled 

No 

No 

ProdJJne 

Keywords 

Comma 

Comma ^ 

[Not Assigned] 

Editable 

Standard 

Yes 
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Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator. 
Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Advertising Agency Services 
Trade Association Services 
Professional Association 
Services 

Defense Contracting 
Display Devices 
Electromagnetic Retarders 
Engine Brakes 
Engineering Services 
Exhaust Brakes 
Publications 
Sporting Goods 
No 

Disabled 

No 

No 

Referred_By 

Names 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Orig_Atty 

Names 

Comma 

Comma 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BHLAtty 
Names 

[Not Assigned) 

Editable 

No 

Disabled 

No 

No 

FeeBasis 

Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Standard 

Yes 

Percentage Discount 
Fee Cap 
Fixed Fee 

Non-Standard Hourly Rate 
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Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 
Sign When Mailing/in Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Section Title: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Shared Field Reference: 
Shared Field Reference: 
Action: 

Formula: 



Action: 
Formula: 



Action: 

Formula: 
Action: 



Standard Hourly 
No 

Disabled 

No 

No 

NonStandardFee 

Keywords 
[Not Assigned) 
Editable 
Standard 
No 

10% Discount 
No 

Disabled 

No 

No 

RelateClient 

Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Standard 

Yes 

33030 

35720 

40310 

No 

Disabled 

No 

No 

Document_Statistics 

Section 
Comma 

Document Statistics 

Editable 

No 

Disabled 

No 

No 

Status Jl 

History 

Close 

@Command([FileClose 
Window]); 
Cancel 

FIELD SaveOptions := 

'•0^@Command([FileCloseWind 

ow]); 

Edit 

@Command([EditDocument]); 
New Matter 
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Formula: @Command([Compose]; 

"Matter"); 

JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(Globals) 

Option Public 
Use "UpdateFiekJs" 

' ClientName and ClientNo, MatterName and MatterNo declared in the script lib for 

updateFields 

Public xContactName$ 
Public xContactAddress$ 
Public xLOB$ 
Public xProdLine$ 
Public xReferredBy$ 
Public xOrigAtty$ 
Public xBilIAtty$ 
Public xFeeBasis$ 
Public xNonStdFee$ 
Public xRelateClient$ 
(Form) ClientForm 

Sub Postopen(Source As Notesuidocument) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace.CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

If uidoc.EdrtMode=True Then 

Call uidoc.FieldSetTextf PropClose", "Open") 

End If 

xClientName$=uidoc.FieldGetTextC'Client_Name w ) 
xCHentNo$=uidoc.FieldGetTextrciienLNo H ) 
xContatfName$=uidocPieldGetTextfContactJsiame^ 
xContactAddress$=uidoc.FieldGetText( M Contact_Address ,, ) 
xLOB$=uidoc.FieldGetText( n LOB w ) 
xProdLineS^idbcPieldGetTextCProdJJne") 
xReferredBy$=uidocPieldGetText("Referred_By w ) 
xOrigAtty$=uidoc.FieldGetTextCOrig_Atty") 
xBillAtty$=uidoc.FieldGetTextrBilLAtty n ) 
xFeeBasis=uidoc.FieldGetText(TeeBasis") 
xNonStdFee$=uidoc.FieldGetTextCNonStandardFee ,r ) 
xRelatedClient$=uidoc.FieldGetTextC , RelateClienn 
End Sub 

Sub Postmodechange(Source As Notesuidocument) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
If uidoc.EditMode=True Then 

Call uidoc.FieldSetTextfPropClose", "Open") 
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End If 
End Sub 

Sub Querysave(Source As Notesuidocument, Continue As Variant) 

Dim session As New NotesSession 

Dim db As NotesDatabase 

Set db=session.CurrentDatabase 

Dim workspace As NoteslllWorkspace 

Dim uidoc As NotesUIDocument 

PropClose$=source.FieldGetText(TropClose w ) 

If PropClose$o"Closed n Then 

Ok%=Messagebox("You must use the Save and Close button to save your work or use 

the Cancel button to abort your 
changes!" i 0+48+0+0, n ERROR w ) 

lfOk%=1Then 

continue=False 
End If 
End If 
End Sub 
(Field) Contact_Address 

Sub Entering(Source As Field) 
End Sub 

Sub Exiting(Source As Field) 
Dim Num As Variant 
Dim FieldName As String 
Dim Address As Variant 
FieldName = "B" 

Num=Evaluate(|@Elements(@Explode(@Trim(BusinessAddress);@Char(13)))|.doc) 
If Num(O) = 1 Then 

doc.BusinessAddress=Evaluate 
(|@Trim(@ReplaceSubstring(B 
usinessAddress;@NewLine;" 
Dldoc) 

End If 

Address=doc.BusinessAddress(0) 

If Address=" w And (doc.OfficeStreetAddress(0)= nB And doc.OfficeCityCOK" And 

doc.OfficeState(0)= ,,w )Then 

Exit Sub 
End If 

Call Parse.Address(Address, Num, ReldName) 

Call uidoc.refresh 
End Sub 
(Action) Route via Email 

Sub Click(Source As Button) 

Dim db As NotesDatabase 

Dim workspace As New NoteslllWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace.Currentbocument 
. Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

•Electronically route the info to the default mail group and cc the sender 

Dim doc As NotesDocument 

Dim view As NotesView 

Sender$= Session.CommonUserName 
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If uidoc.lsNewDoc Then 

Dim maildoc As NotesDocument 

Set maildoc = New NotesDocument(db) 

maildoc.Form-'MailNot" 

maildoc.Subject="New Client Notice" 

Set view = db.GetView( "(Routing Profile)" ) 

Set doc = view.GetFirstDocument 

maildoc.SendTo=doc.NewClient_Routing 

maildoc.CopyTo=Sender$ 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
WithrtiBody 

.AppendText "Please note that a new Cient has been added to the Intellectual 

Property Database." 

.AddNewLine 1 
End With 

'Add some comments and send the mail 
maildoc.HoldTxt==rtiBody.GetFormattedText(False, 70) 

Flag^orkspace.DialogBoxnMailNot)", True, True, False, False, False, False, "New 

Client Notification", Maildoc) 

If Flag=True Then 

Set item= maildoc.GetFiretltemfEditTxt") 
Forall Text In item. values 

Call rtibody .AppendText (text) 

Call rtibody .AddNewLine (1) 
End Forall 
With rtiBody 

.AddNewLine 2 

.AppendText "Click here to view the new client information >" 

.AppendDocLink uidoc.document,"" 
.AddNewLine 2 
End With 

maildpc.EditTxt="" 
maildoc.Form="Memo" 
maildoc.HoldTxt="" 
Call maildoc.Send(False) 
End If 
Else 

'Bailout if not a new document 

Ok%=Messagebox("No notification required, not a new clientr.C^S+O+O/'ERROR") 
lfOk%=1Then 

Exit Sub 
End If 
End If 
End Sub 
(Action) Save and Close 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = worlcspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 

'Define the the counterpart y variables for those x variables in postopen 
yClientName$=uidoc.FieldGetTextfClienrName") . 
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yCIientNo$=uidoc.FieldGetTextfClient_No") 

yContactName$=uidoc.Fi(B!dGetText( M Contact_Name ,, ) 

yContactAddress$=uidoc.FieldGetText("Contact_Address") 

yLOB$=uidocPieldGetText("LOB") 

yProdLine$=uidoc.FieldGetTextC , Prod_Line' , ) 

yReferredBy$=uidocPieldGetText("Referred_By") 

yOrigAtty$=uidoc.FieldGetText( ,, Orig_Atty ,, ) 

yBillAtty$=uidocPieldGetTextCBilLAtty^ 

yFeeBasis$=uidoc.FieldGetTextC , FeeBasis n ) 

yNonStdFee$=uidoaFieldGetTextfNonStandardFee") 

yRelateClient$=uidoc.FieldGetText( M RelateClienn 

'Define some other variables 

yhist$=uidocPieldGetText("History") 

NewHist$ = "Modified on " + Date$+" "+Time$ + " by " + Session .CommonUserName 
update$="N" 

'Set the PropClose field to Close so we can save the document 
Call uidoc.FieldSetTextfPropClose", "Closed") 
'Check each field for change to compile the change history 
If xClientName$ <> yClientName$ Then 

NewHist$ = NewHist$ &Chr(010) + "Client name changed to: " + yClientName$ + " 

from"+xClientName$ 

update$=T' 
End If 

If xCiientNo$ <> yClientNo$ Then 

NewHist$ = NewHist$ &Chr(010) + "Client number changed to: " + yClientNo$ + " from 

" + xClientNo$ 

update$- Y" 
End If 

If xContactName$ <> yContactName$ Then 

NewHist$ = NewHist$ &Chr(01 0) + "Contact name changed to: "+ yContactName$ + " 

from " + xContactName$ 

update$="Y" 
End If 

If xContactAddress$ <> yContactAddress$ Then 

NewHist$= NewHist$ &Chr(010) +"Contact address changed to: "+ yContactAddress$ 

+ " from " + xContactAddress$ 

update$="Y" 
End If 

lfxLOB$oyLOB$Then 

NewHist$= NewHist$ &Chr(010) + "Line of Business changed to: "+ yl_OB$ + " from " + 

xLOB$ 

updates- V 
End If 

If xProdLine$ <> yProdLine$ Then 

NewHist$= NewHist$ &Chr(010) + "Product Lne changed to: "+ yProdLine$ + " from " + 

xProdLine$ 

update$= , Y" 
End If 

If xReferredBy$ <> yReferredBy$ Then 

NewHist$= NewHist$ &Chr(01 0) + "Referrel information changed to: "+ yReferredBy$ + 

" from " + xReferredBy$ 

update$="Y" 
End If 

If xOrigAtty$ <> yOrigAtty$ Then 
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NewHist$= NewHist$ &Chr(010) + "Originating Attorney changed. "+ yOrigAtty$ + 

"from n + xOrigAtty$ 

update$='Y" 
End If 

If xBHIAtty$ <> yBilAtty$ Then 

NewHist$= NewHistS &Chr(010) + "Billing Attorney changed to: "+ yAtty$ + " from " + 

xAtty$ 

update$='Y" 
End If 

If xFeeBasisS <> yFeeBasis$ Then 

NewHist$= NewHist$ &Chr(010) + "Fee Basis changed to: "+ yFeeBasis$ + " from " + 

xFeeBasis$ 

update$="Y" 
End If 

If xNonStdFee$ <> yNonStdFeeS Then 

NewHist$= NewHistS &Chr(010) + "Alternative changed to: ."+ yNonStdFee$ + " from " 

+ xNonStdFeeS 

update$= r Y" 
End If 

If xRelateClientS <> yRelateClient$ Then 

NewHist$= NewHistS &Chr(010) + "Related To information changed: "+ yRelateClient$ 

+ " from ' + xRelateClientS 

update$="Y" 
End If 

'Append the new changes to the History 
If updates*^ Then 
If uidoc.lsNewDoc Then 

Call uidoc.FieldSetTextfStatus_1 "New") 

Call uidoc.FieldSetText ("History", "Document Created: "+ Date$+" M +Time$ + " 

by n + 

Session.CommonUserName 
&Chr(010)) 

Else 

Call uidoc.FieldSetText("Status_r ."Modified") 

Call uidoc.FieldSetText ("History", NewHistS &Chr(010) +" 



&Chr(010) + yhist$) 

End If 
End If 

'Save and close the document 
Call uidoc.Save 
•Run Sub to update children 
If Not uidoc.lsNewDoc Then 

Call SetFields(uidoc.document) 
End If 

Call uidoc.Close 
End Sub 

Name: Event 

Last Modification: 07/28/1999 10:03:25 AM 

Comment: [Not Assigned] 

Type: Response to Response 
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Window Title Formula: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 



@lf(@lsNewDoc; "New Event"; 

"Event - tt + Event); 

Yes 

Yes 

No 

No 

No 

No 

Yes 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 

ClientDocID 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; ClientDocID; 

@GetDocField($Ref; 

"ClientDocID")); 

No 

MatterDocID 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; MatterDocID; 

@GetDocField($Ref; 

"MatterDocID")); 

No 

ProjectDocID 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; ProjectDocID; 

@GetDocField($Ref; 

"ProjectDocID")); 

No 

EventDocID 
Text 



19 



Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Default Value Formula: 

Is Scripted: 
Shared Field Reference: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 



[Not Assigned] 

Computed 

No 

Disabled 
No 

@Text(@DocumentUniquelD); 
No 

Event 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(Project = "Prosecution: 
Copyright"; CopyrightEvent; 
Project = "Prosecution: Patent"; 
PatentEvent; Project = 
"Prosecution: Trademark"; 
TrademarkEvent; Project = 
"Counseling.* Advice"; 
CounselEvent; Project = 
"Litigation"; LjtigationEvent; 
Project = "Other"; OtherEvent; 

'"); 

No 
Sn 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

seriaLnumber 
No 

PropClose 

description_all 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

@lf(Project = "Prosecution: 

Patent"; desc_patent; Project = 

"Prosecution: Trademark"; 

desc tm; info_other); 

No 

Ref 

Text 

[Not Assigned] 

Computed 

No 

Disabled - 
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Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: . 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator- 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 



No 

@Text(@DocumentUniquelD); 
No 

Form Name 
Text 

[Not Assigned) 

Computed 

No 

Disabled 
No 

"Event" 
No 

TEArchive 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
"no* 
No 

clients_billing 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; clients_billing; 

@GetDocField($Ref, 

w clients_billing ,f )); 

No 

inventor 

Text 

Comma, Semicolon 

Semicolon 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; inventor, 
@GetDocField($Ref; 

"inventor)); 
No 

PComments 
Text 

Comma, Semicolon 

Semicolon 

[Not Assigned] 

Computed 

No 

Disabled 
No 
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Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: , 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 



@lf(@lsNewDoc; PComments; 

@GetDocField($Ref; 

"PComments")); 

No 

CltentJMame 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; Client_Name; 

@GetDocField(ClientDoclD; 

XlientName")); 

No 

ClientJMo 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; ClientJMo; 

@GetDocField(ClientDoc!D; 

n Client_No w )); 

No 

Matterjslame 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; Matter_Name; 

@GetDocField(MatterDoclD; 

n Matter_Name M )); 

No 

MatterJSIo 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; MatterJMo; 

@GetDocField(MatterDoclD; 

"MatterJMo")); 

No 

Project 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
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Update Requires Editor Access: 
Formula: 

Is Scripted: 
Shared Field Reference: 
Field: 

Datatype: * 

Time Format: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Validation Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: . 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 



No 

@lf(@lsNewDoc; Project; 
@GetDocField($Ref; "Project")); 
No 

cre_date 

cre_date_d 

Time 

11/03/1999 
[Not Assigned] 
Computed for display 
No 

Disabled 
No 

cre_date 
No 

EventDate 
Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@lf(EventDate = ""; 
@Failure("You must enter an 
Event Date for this Event."); 
©Success); 
No 

CopyrightEvent 

Keywords 
[Not Assigned] 
Editable 
Standard 
Yes 

@DbColumn(""; ™ : ""; 
"(Keywords)"; 3); 
No 

Disabled 

No 

No 

PatentEvent 

Keywords 
[Not Assigned] 
' Editable 
Standard 
Yes 

@DbColumnC m ; : ""; 
"(Keywords)"; 4); 
No 

Disabled 

No 

No 

TrademarkEvent 
Keywords 
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Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Shared Field Reference: 
Shared Field Reference: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 



(Not Assigned] 
Editable 
Standard 
Yes 

©DbColumnf"; ,w 
"(Keywords)"; 5); 
No 

Disabled 

No 

No 

CounselEvent 

Keywords 
[Not Assigned] 
Editable 
Standard 
Yes 

@DbColumn(""; nn 
"(Keywords)"; 6); 
No 

Disabled 

No 

No 

Litigation Event 

Keywords 
[Not Assigned] 
Editable 
Standard 
Yes 

@DbColumnC w ; 
"(Keywords)"; 7); 
No 

Disabled 

No 

No 

OtherEvent 

Keywords 
[Not Assigned] 
Editable 
Standard 
Yes 

@DbColumnC"; 
"(Keywords)"; 8); 
No 

Disabled 

No 

No 

PDescrip 
resp_atty 
resp_attyjl 
Text" 

[Not Assigned] 

Computed 

No 

Disabled 



Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 



No 

resp_atty 
No 

desc_tm 

Keywords 
(Not Assigned] 
Editable 
Standard 
Yes 

©DbColumnf"; 
"(Keywords)"; 9); 
No 

Disabled 

No 

No 

desc_patent 

Keywords 

[Not Assigned] 

Editable 

Standard 

Yes 

@DbColumn(""; m ' 
"(Keywords)"; 10); 
No 

Disabled 

No 

No 

info_other 

TexT 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

lrt_roi!te_ev 
Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Next_Action 

Keywords 

[Not Assigned] 

Editable 

Standard 

No 

No 

Disabled 
No - 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface- 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Validation Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



No 

NextActionBy 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Action__Date 
Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

DateComplete 
Time 

11/03/1999 05:36:17 PM 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Priority 

Keywords 

[Not Assigned] 

Editable 

Standard 

No 

Urgent 

High 

Medium 

Low 

No 

Disabled 
No 

@lf(Priority = Select 
@Failure("Please designate a 
priority."); ©Success); 
No 

Status 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(TEArchive = "no" | 
TEArchive = ""; "Open"; 
"Completed");. 
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Is Scripted: 
Field: 

Datatype: 
Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Section Title: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 

Is Scripted: 
Field: 

Datatype: 

Help Description: 



No 

Hours 

Number 

General 

No 

No 

No 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

trakjd 

Text 

[Not Assigned] 
Computed when composed 
No 

Disabled 
No 

©Unique 
No 

Summary 
Text 

[Not Assigned] 

Editable 

Yes 

Disabled 

No 

No 

Archive 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

n n 

No 

Untitled_Section 

Section 
Comma 

Event Retirement 

Computed 

No 

Disabled 
No 

@lf(resp_atty != resp_atty; 

,,w ) : "[MasterEditor]"; 

No 

ProtectFromArchive 

Keywords 
[Not Assigned] 
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Field Type: 

Keyword User Interface: 
Allowable Keywords: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: . 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Default Value Formula: 

Is Scripted: 
Shared Field Reference: 
Shared Field Reference: 
Action: 

Formula: 



Action: 



Editable 

Radio Buttons 

No|0 

Yes|1 

No 

Disabled 
No 
M 0" 
No 

TEDateComplete 

Time 

11/03/1999 
. [Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Retire_By 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(TEDateComplete != wn ; 
@Name([CN]; ©UserName); 
BM ); 

No 

UnHideEV 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
"no" 
No 

ClosingEV 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
"no" 
No 

Statusj! 

History 

Close 

@Command((FileClose 
Window]); 
Cancel 
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Formula: 



Action: 
Formula: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(Globals) 

Option Public 
%INCLUDE Tsconst.lss" 
Use "UpdateFields" 
Public xCopyright$ 
Public xPatent$ 
Public xTrademark$ 
Public xCounsel$ 
Public xLitigation$ 
Public xOther$ 
Public xEventDate 
Public xDes$ 
. Public xAtty$ 
Public xDescTm$ 
Public xDescPat$ 
Public xOtherlnfo$ 
Public xLitRouteEv$ 
(Form) Event- 
Sub Postopen(Source As Notesuidocument) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
If uidoc.EditMode=True Then 

Call uidocPieldSetTextCPropClose", "Open") 
End If 

xCopyrightSsuidocFieldGetTextfCopyrightEvenn 
xPatent$=uidoc.FieldGetText("PatentEvent M ) 
xTrademark$=uidoc.FieldGetTextCTrademarkEvent") 
xCounse^uidoc.FieldGetTextfCounselEvenn 
xLitigation$=uidoc.FieldGetTextCLitigationEvenn 
xOther$=uidoc.FieldGetTextrOtherEvenn 
xEventDatesuidocFieldGetTextfEventDate") 
xDes$=uidoc.FieldGetText("PDescrip") 
xAtty$=uidoc.FieldGetText("resp_atty , 7 
xDescTm$=uidoc.FieldGetTextCdescJm w ) 
xDescPat$=uidocPieIdGetTextfdescTpatenf) 
xCKherlnfo$=uidocPieldGetTextOnfo_otheO 
xLitRouteEv$=uidoc.FieldGetText( ,, lit_route_e^O 
End Sub 

Sub Postmodechange(Source As Notesuidocument) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 



FIELD SaveOptions := 

n O";@Command([FileCloseWind 
ow]); 

Edit 

@Command([EditDocument]); 
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Dim uidoc As NotesUIDocument 

Set uidoc = workspace.CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

If uidoc. EditMode=True Then 

Call uidoc.FieldSetTextC'PropClose", "Open") 
End If 
End Sub 

Sub Querymodechange(Source As Notesuidocument, Continue As Variant) 
End Sub 

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, 

Continue As Variant) 

End Sub 

Sub Querysave(Source As Notesuidocument, Continue As Variant) 
Dim session As New NotesSession 
Dim db As NotesDatabase 
Set db=session.CurrentDatabase 
Dim workspace As NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
PropClose$=source.FieldGetText("PropClose") 
If PropClose$o"Closed" Then 

Ok%=Messagebox("You must use the Save and Close button to save your work or use 

the Cancel button to abort your 
changes!", 0+48+0+0, "ERROR") 

lfOk%=1Then 

continue=False 
End If 
End If 
End Sub 

Sub Postrecalc(Source As Notesuidocument) 
End Sub 

Sub Queryclose(Source As Notesuidocument, Continue As Variant) 
End Sub 

(Button) Close and Archive Event 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Define some variables 
ActionHist$=uidoc.FieldGetText("Archive") 
OldAction$=uidoc.FieldGetTextC'NexLAction") 
Due$=uidoc.FieldGetText("DateDue") 
Complete$=uidoc.FieldGetTextC , DateComplete n ) 
TraklD$=uidocPieldGetTextOrakjd") 
Sum$=uidoc.FieldGetTextC , Summary") 

NewActionHist$ = "Action: " + OldAction$ &Chr(010) + "Tracking ID: " + TraklD$ 

&Chr(010) +"Due on: " + Due$ 
&Chr(010) + "Closed on:" + 
Complete$ &Chr(010) + Sum$ 
&Chr(010)+ "Certified closed 
by" + 
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Session.CommonUserName 

'Append the closed action to the Archive 
lfOldAction$=""Then 

Ok%=Messagebox("There is no Action to close!",0+48+0+0,"ERROR") 
lfOk%=1 Then 

Exit Sub 
End If 
End If 

If Completed"" Then 

Ok%= MessageboxCYou must specify a completion date!",0+48+0+0, "ERROR") 

lfOk%=1 Then 
Exit Sub 

End If 
End If 

lfSum$="" Then 

Ok%=Messagebox("You must provide a summary of action 

taken !" ,0+48+0+0,"ERROR") 

If Ok%=1 Then 

Exit Sub 
End if 
End If 

'Certify that the action should be closed 

YesOrNo%=Messagebox("l " +Session.CommonUserName+ " certify that this subtask 

action is closed .",4+32+0+0, 
"Action Review Certification") 

lfYesOrNo%=6Then 

Call uidoc.FieldSetText fArchive", NewActionHist$ &Chr(010) +" : 



&Chr(010) + ActionHist$) 

• Clear the subform for a new entry 

Call uidocPieidSetTextC'NexLAction","") 
Call uidoc.FieldSetText("DateDue","") 
Call uidocPieldSetTextCPriority","') 
Call uidoc.FieldSetText("Hours", M ") 
Call uidoc.FieldSetTextfNextActionBy""") 

Call uidocPieldSetTextfDateComplete","") ' 
Call uidoc.FieldSetText("Status","On Going' 1 ) 
Call uidoc.FieldSetTextHrakJd","") 
Call uidoc.FieldSetTextfSummary","") 
End If 
End Sub 
(Button) Retire Event 

'%INCLUDE "Isconst.lss" 
Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesU I Workspace 
Dim uidoc As NotesUlDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim doc2 As NotesDocument 
Dim maildoc As NotesDocument 
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Dim view As NotesView 

Dim yesOrNo As Integer 

Dim OkCancel As Integer 

'Make sure user wants to retire the event 

yesOrNo=Msgbox("Are you sure you want to retire this Event?", MB_YESNO + 

MBICONQUESTION + 
MBJDEFBUTTON2 + 
MB_APPLMODEL, "Retire 
Event?") 

If yesOrNo=IDNOThen 

Exit Sub 
End If 

'Unhide the closure info fields and set a field so I know they are retiring event 
Call uidoc.FieldSetTextfUnHideEV", "yes") 
Call uidoc.RefreshHideFormulas 
Call uidoc.Refresh 

Call uidoc.FieldSetTextfClosingEV", "yes") 

'Get some data from the base document for the email and set the variables 

yAtty$=uidoc.FieldGetText("resp_atty") 

Client$=uidoc.FieldGetTextC , Client_Name") 

Matter$=uidocPieldGetTextCMatter_Name") 

MatterNo$=uidoc.FieldGetText( ,, Matter_No M ) 

People$=uidoc.FieklGetTextC , lit_route_e\0 
Sender$=Session.CommonUserName 
Project$=uidocPieldGetTextfProject") 
Select Case Projects 
Case "Prosecution: Patent" 

Ref$=uidocPieldGetText("descj)atent") 
Case "Prosecution: Trademark" 

Ref$=uidoc.FieldGetTextCdesc_tm") 
Case Else 

Ref$=uidoc.FieldGetTextOnfo_otheO 
End Select 

'Get the retirement data entered by the user 
RetireBy$=session.CommonUserName 
RetireDate=uidoc.FieldGetText("TEDateComplete") 
'Do some field validation on said data 
If Len(RetireDate) < 1 Then 

Goto SlingError 
End If 

'Electronically route the info to the default profile 
Set maildoc = New NotesDocument(db) 
maildoc.Form="MailNot" 

'Set the default routing (SendTo field) and bring up the form 

'If (Project$-'Prosecution: Trademark" Or Project$="Prosecution: Patent" Or Projects 

"Prosecution: Copyright" Or 
Project$="Utigation") Then 

Set view = db.GetView( "(Routing Profile)" ) 
Set doc = view.GetFirstDocumertt 
Select Case Projects 
Case "Prosecution: Patent" 

maildoc.Se ndTo=doc. PatentJRo uting 
Case "Prosecution: Trademark" 

maildoc.SendTo=doc.TM_Routing . .. 



Case "Presecution: Copyright" 

mialdoc.SendTo=doc.Cpy_Routing 
Case "Litigation" 

maildoc.SendTo=uidoc.FieIdGetText("liLroute - ev ,, ) 
Case "Counselling and Advice" 

mai!doc.SendTo=uidoc.FieldGetText("litroute_ev") 
Case "Other" 

maildoc.SendTo=uidoc.FieldGetTextflit_route_ev") 
End Select 

maildoc.CopyTo=Sender$ 
maildoc.Subject="Event Retirement Notification" 
•Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 

Dim rtStyle As NotesRichTextStyle 

Set rtStyle=session.CreateRichTextSty!e 

With rtiBody 

rtStyle.bold=True 

.AppendStyle(rtStyle) 

.AppendText "Reference: " 

AddTab 1 

rtStyle.bold=False 

.AppendStyle(rtStyle) 

.AppendText "Client - " + Client$ 

.AddNewLinel 

.AddTab 2 

.AppendText "Matter - " + Matter$ + " [" + MatterNo$ + T 
AddNewLine 2 

.AppendText "Please note that an Event pertaining to the " + Projects + " project for 

the referenced Client and Matter 
has been retired." 

.AddNewLine 1 

.AppendText 'The Event pertained to: " + Ref$ + V 
.AddNewLine 2 
rtStyle.bold=True 
.AppendStyle(rtStyle) 
.AppendText "Comments: n 
End With 'rtibody 

maildoc.HoldTxt=rtiBody.GetFormattedText(False l 70) 

Flag=workspace.DialogBoxr(MailNot)", True, True, False, False, False, False, "Event 

Retirement",Maildoc) 

lfFlag=True Then 

Set item= maildocGetFirstltemfEditTxt") 
rtStyle.bold=False 

Call rtiBody AppendStyle(rtStyle) 
Forall Text In item.values 

Call rtibody AppendText (text) 

Call rtibody AddNewLine (1) 
End Forall 
With rtiBody 

AddNewLine 2 

AppendText "Please click here to view the Event information >" 

AppendDocLink uidoc.document,"" 
. AddNewLine 2 
End With 
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maildoc.EditTxt="" 
maildoaForm^Memo" 
maildoc.HoldTxt="" 
Call maildoc.Send(False) 
Goto SaveAndClose 
Else 

Goto SaveAndClose 
End If 'dialogbox for message to default group 
SlingError: 

Ok%=Messagebox("Please provide a retirement date and press the 'Retire Event 1 

Button.",0+32+0+0,"Retire 
Event") 

If Ok%=1 Then 

Exit Sub 
End If 

SaveAndClose: 'Save and close the document for the last time. Do it here to avoid pressing 

the save/close button 

•Close it out first 

Messagebox This Event has been retired and will now be removed from the Active 

views." ,0+64+0+0,"Retirement 
Successful" 

Call uidoc.FieldSetTextfTEArchive", "yes") 

Call uidoc.Re!dSetText("PropClose", "Closed") 'Set the PropClose field to 'Closed 1 so we 

can save the document 
'Do the histroy, define the the counterpart y variables for those x variables in postopen 
yCopyright$=uidoc.FieldGetTextCCopyrightEvent") 
yPatent$=uidoc.FieldGetTextCPatentEvent") 
yTrademark$=uidpcPieldGetTextCTrademarkEvent") 
yCounsel$=uidoc.FieidGetText("CounselEvent") 
yLitigatipn$=uidoc.FieldGetText(TitigationEvent") 
yOther$=uidoc.FieldGetTextC'OtherEvent") 
yEventDate=uidoc.FieldGetTextCEventDate") 
yDes$=uidocPieldGetText("PDescrip") 
yAtty$=uidoc.FieldGetTextC'resp_atty") 
yDescTm$=uidoc.FieldGetTextC , descJm") 
yDescPat$=uidoc.FieldGetText("desc_patent") 
yOtherlnfo$=uidoc.FieldGetTextfinfo_other) 
yLitRouteEv$=uidoc.FieldGetTextClit_route_ev^ 
TEDateComplete=uidoc.FieIdGetTextCTEDateComp!ete") 
'Define some other variables needed for the history 
yhist$=uidocPieldGetText("History") 

NewHist$ = "Modified on " + Date$+" "+Time$ + " by " + Session.CommonUserName 
update$="N" 

'Check each field for change to compile the change history 
If xCopyright$ <> yCopyright$ Then 

NewHist$ = NewHist$ &Chr(010) + "Event changed to: " + yCopyright$ + " from " + 

xCopyright$ 

update$="Y" 
End If 

If xPatent$ <> yPatent$ Then 

NewHist$ = NewHist$ &Chr(01 0) + "Event changed to: " + yPatent$ + " from " + 

xPatent$ 

update$="Y" 
End If 4 
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If xTrademark$ <> yTrademark$ Then 

NewHist$ = NewHist$ &Chr(010) + "Event changed to: "+ yTrademark$ + n from " + 

xTrademark$ 

update$="Y" 
End If 

If xCounsel$ <> yCounsel$ Then 

NewHist$= NewHist$ &Chr(010) +"Event changed to: "+ yCounsel$ + " from " + 

xCounsel$ 

update$="Y" 
End If 

If xLitigation$ <> yLitigation$ Then 

NewHist$= NewHist$ &Chr(010) + "Event changed to: "+ yLitigation$ + " from " + 

xLrtigation$ 

update$="Y" 
End If 

If xOther$ <> yOther$ Then 

NewHist$= NewHist$ &Chr(010) + "Event changed to: "+ yOther$ + " from " + xOther$ 

update$="Y" 
End If 

If xEventDate <> yEventDate Then 

NewHist$= NewHist$ &Chr(010) + "Event Date changed to: "+ Format(yEventDate, 

"Short Date") + " from " + 
Format(xEventDate, "Short 
Date") . 

update$="Y" 
End If 

If xdes$ <> ydes$ Then 

NewHist$= NewHist$ &Chr(010) + f The Event Description was changed. " 

update$="Y" 
End If 

If xAtty$ <> yAtty$ Then 

NewHist$= NewHist$ &Chr(010) + "Responsible Attorney was changed to: "+ yAtty$ + 

" from " + xAtty$ 

update$="Y" 
End If 

If xDescTm$<>yDescTM$ Then 

NewHist$= NewHist$ &Chr(010) + "Routing information was changed to: "+yDescTM$ 

+" from "+xDescTM$ 

update$="Y" 
End If 

If xDescPat$<>yDescPat$ Then 

NewHist$= NewHist$ &Chr(010) + "Routing information was changed to: "+yDescPat$ 

+" from "+xDescPat$ 

update$="Y" 
End If 

If xOtherlnfo$<>yOtherlnfo$ Then 

NewHist$= NewHist$ &Chr(010) + "Routing information was changed to: "+yOtherlnfo$ 

+" from "+xOtherlnfo$ 

update$="Y" 
End If 

If xLitRouteEv$oyLitRouteEv$ Then 

NewHist$= NewHist$ &Chr(010) + "Routing list was changed to: n +yLitRouteEv$ +" 

from "+xLitRouteEv$ 

update$="Y" 



End If 

'if event is being closed write out to history 

If TEDateComplete <> ,m Then 

NewHist$ = NewHist$ &Chr(010) + "The Event was Retired on M + 

FormatfTEDateComplete, 
"Short Date") 

update$="Y" 
End If 

'Append the new changes to the History 
If update$="Y" Then 
* Call uidoc.FieldSetText("Status_1 "."Modified") 

Call uidoc.FieldSetText ("History", NewHist$ &Chr(010) +" . 



"&Chr(010) 

+ yhist$) 

End If 

'Set some field values to retire the document and save/close 

Call uidoc.Save 

Call uidoc.Close 
End Sub 
(Action) Route via Email 

Sub Click(Source As Button) 

Dim db As NotesDatabase 

Dim workspace As New NotesU (Works pace 

Dim uidoc As NotesUIDocument 

Set uidoc = worfcspace.CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CunrentDatabase 

Dim doc As NotesDocument 

Dim doc2 As NotesDocument 

Dim maildoc As NotesDocument 

Dim view As NotesView 

Dim yesOrNo As Integer 

Dim OkCancel As Integer 

'Get some data from the base document and set the variables 

yAtty$=uidoc.ReldGetTextfresp_atty") 

Project$=uidoc.FieldGetText( n Project") 

Client$=uidoc.FieldGetTextrClient_Name") 

Matter$=uidoc. FietdGetTextC , Matter_Name") 

MatterNo$=uidoc.ReldGetTextCMatter_No") 

People$=uidoc.FieldGetTextniLroute_e>0 
Sender$=Session.CommonUserName 
Select Case Projects 
Case "Prosecution: Patent" 

Ref$=uidocPieldGetTextC'desc_patent") 
Case "Prosecution: Trademark" 

Ref$=uidoc.FieldGetText("desc_tm") 
Case Else 

Ref$=uidocPieldGetTextOnfo_other") 
End Select 

•Electronically route the info to the default profile and the attorney 
•|f uidoc.lsNewDoc Or xAtty$<>yAtty$ Then 
Set maildoc = New NotesDocument(db) 
maildoc.Form-'MailNot" 
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Dim rtStyle As NotesRichTextStyle 

Set rtStyle=session.CreateRichTextStyle 

'Set the default routing (SendTo field) and bring up the form 
'If (Project$= M Prosecution: Trademark" Or Project$="Prosecution: Patent" QrProject$= 

"Prosecution: Copyright" Or 
Project$="Litigation") Then 

Set view = db.GetView( "(Routing Profile)" ) 
Set doc = view.GetFirstDocument 
Select Case Projects 
Case "Prosecution: Patent" 

maildoc.SendTo=doc.Patent_Routing 
Case "Prosecution: Trademark" 

maildoc.SendTo=doc.TMJRouting 
Case "Presecution: Copyright" 

mialdoc.SendTo=doc.Cpy_Routing 
Case "Litigation" 

maildoc.SendTo=uidoc.FieldGetTextriiLroute_ev M ) 
Case "Counselling and Advice" 

maildoc.SendTo=uidoc.FieldGetTextriiLroute_ev") 
Case "Other 

maiIdoc.SendTo=uidoc.FieldGetTextO'liLroute_ev ,, ) 
End Select 

maildoc.CopyTo=Sender$ 
maildoc.Subject="New Event Notification" 

'Start to compile the body field 
Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
WithrtiBody 

rtStyle.bold=True 

.AppendStyle(rtStyle) 

.AppendText "Reference: " 

.AddTab 1 

rtStyle.bold=False 

.AppendStyle(rtStyle) 

.AppendText "Client - " + Client$ 

.AddNewLine 1 

.AddTab 2 

.AppendT ext "Matter - " + Matter$ + " [" + MatterNo$ + "]" 
.AddNewLine 2 

.AppendText "Please note that a new Event has been created for the " + Projects + " 

project for the referenced Client 
and Matter." 

.AddNewLine 1 

.AppendText "The Event pertains to: " + Ref$ + V 
.AddNewLine 2 

.AppendText yAtty$ +" has been assigned as the responsible attorney for this Event." 
.AddNewLine 2 
rtStyle.bold=True 
.AppendStyle(rtStyle) 
.AppendText "Comments: " 
End With 'rtibody 

maildoc.HoldTxt=rtiBody.GetFormattedText(False, 70) 

Flag^orfcspace.DialogBoxCflVlailNot)", True, True, False, False, False, False, "New 

Event Notification",Maildoc) 

lfFlag=True Then 
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Set item= maildoc.GetFirstItem("EditTxt") 

rtStyle.bold=False. 

Call rtiBody.AppendStyle(rtStyle) 

Forall Text In item.values 

Call rtibody .AppendText (text) 

Call rtibody .AddNewLine (1) 
End Forall 
With rtiBody 

.AddNewLine2 

.AppendText "Please click here to view the Event — >" 

.Append DocLink uidoc.document,"" 
.AddNewLine 2 . 
End With 

. maildoc.EditTxt= m ' 

maildoc.Form="Memo" 

maildoc.HoldTxt-'" 

Call maildoc.Send(False) 
End If 'dialogbox for message to default group 
' End If 

'Notify the responsible attorney 

If uidoc. IsNewDoc Or xAtty$<>yAtty$ Then 

maildoc.Form="MailNor 

maildoc.SendTo^ 

maildoc.body="" 

maildoc.SendTo=yAtty$ 

maiIdoc.CopyTo=Sender$ 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

rtStyle.bo!d=True 

.AppendStyle(rtStyle) 

.AppendText "Reference: " 

.AddTabl 

rtStyle.bold=False 

.AppendStyle(rtStyle) 

.AppendText "Client - " + Clients 

.AddNewLine 1 

.AddTab2 

.AppendText "Matter - " + Matter$ + " [" + MatterNo$ + T 
.AddNewLine 2 

.AppendText "Please note that a new Event has been created for the ■ + Projects + " 

project for the referenced Client 
and Matter." 

.AddNewLine 1 

.AppendText "The Event pertains to: " + Ref$ + "." 
.AddNewLine 2 

.AppendText "You have been designated the responsible attorney for this Event." 
.AddNewLine 2 
rtStyle.bold=True 
.AppendStyle(rtStyle) 
.AppendText "Comments: ■ 
End With •rtibody 

maildoc.HoldTxt=rtiBody.GetFormattedText(False > 70) 

Flag=workspace.DialogBoxr(MailNot)" f True, True, False, False, False, False, "New 

Event Notification",Maildoc) 
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If Flag=True Then 

Set item= maildoc.GetFirstltemf'EditTxt") 

rtStyle.bold=False 

Call rtiBody.AppendStyle(rtStyle) 

Forall Text In item.values 

Call irtibody .AppendText (text) 

Call rtibody.AddNewLine (1) 
End Forall 
With rtiBody 

.AddNewLine 2 

.AppendText "Please click here to view the Event- 
.AppendDocLink uidoc.document,"" 
.AddNewLine 2 
End With 

maildoc.EditTxt= ,m 

maildoc.Form-'Memo" 

maildoc.HoldTxt="" 

Call maildoc.Send(False) 
End If 
'End If 
'End If 
End Sub 
(Action) Manually Route 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidocAs NotesUIDocument 
Dim uidoc2 As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim Routdoc As NotesDocument 
Dim view As Notes View 
DimitemlAs Notesltem 
Dimitem2As Notesltem 
Dim nn As NotesName 
•Get project and form type 
Project$=uidoc.FieldGetTextC'Project") 
Form$=uidoc.FieldGetTextC , FormName w ) 
'Set the project type 
Select Case Project$ 
Case "Prosecution: Patent" 

rt$="Patent Routing Slip" 

RoutForm$="ProsRoutPat" 
Case "Prosecution: Trademark" 

rtS^Trademark Routing Slip" 

RoutForm$="ProsRoutTM" 
Case "Prosecution: Copyright" 

rt$="Copyright Routing Slip" 

RoutForm$="ProsRoutCR" 
Case "Litigation" 

rt$="Litigation Routing Slip" 
Case "Counselling and Advice" 



rt$="C&A Routing Slip" 
Case "Other 

rt$="Other Event Routing Slip" 
End Select 

'Get some general doc info from form 

Att$=uidoc.FieldGetText("resp_atty") 

Ciient$=uidoc.FieldGetText("ClientJ^Jarhe ,, ) 

ClientNo$=uidoc.FieldGetTextrciienLNo") 

MatterName$=uidoc.FieldGetTexlCMatter_Name") 

MatterNo$=uidoc.FieldGetTextrMatter_No H ) 

Re^uidoc.FieldGetTextCPDescrip") 

'Check for conditions, save the Event form and bring up the correct manual routing form 
If Form$="Event" And (Project$="Prosecution: Copyright" OrProject$="Prosecution: 

Patent" Or 

Project$="Prosecution: 
Trademark") Then 

Call uidocReload 

•Get some routing information from the profile but make it dependant on type routing 
Set view = db.GetView( "(Routing Profile)" ) 
Set doc = view.GetFirstDocument 
If RoutForm$="ProsRoutPat" Then 

Set iteml =doc.GetFirstltem( n ProsRoutePatCpy 1 ") 

Set ltem3=doc.GetFirstltem("ProsRoutePatCpy3") 

Set ltem4=doc.GetFirstltem(TrosRoutePatCpy4") 
End If 

If RoutForm$="ProsRoutTM" Then 

Set iteml =doc.GetRrstltemCProsRouteTMCpy1 ") 

Set ltem3^oc.GetFirstltem("ProsRouteTMCpy3") 

Set ltem4=doc.GetFirstltem( ,, ProsRouteTMCpy4") 

Set ltem5=doc.GetFirstltem("ProsRouteTMCpy5") 
End If 

If RoutForm$="ProsRoutCR" Then 

Set iteml =doc.GetFirstltemC'ProsRouteCRCpy1 ") 

Set ltem3=doc.GetFiretltemCProsRouteCRCpy3") 

Set ltem4=doc.GetFir5tltem("ProsRouteCRCpy4") 
End If 

'Create the routing document and populate the distribution 
Set Routdoc = db.CreateDocument 
Routdoc.Form=RoutForm$ 

Routdoc.PRoute_1 - iteml .values 'always to the docket 
Routdoc.PRoute_2=Att$ 'always the attorney 
'Populate the Patent routing other distro fields 
If RoutForm$="ProsRoutPat" Then 

Set Tgtltem=New Notesltem(Routdoc, "PRoute_3 b , "") 

Forall x In Item3.values 

Tgtltem.AppendToTextList x + " "+ Chr(01 0) 

End Forall 

Set Tgtltem=New Notesltem(Routdoc, "PRoute_4", "") 
Forall x In Item4 .values 

TgtlteraAppendToTextList x + " "+ Chr(01 0) 

End Forall 
End If 

'Populate the Trademark routing distro 
If RoutForm$="ProsRoutTM" Then 
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Set Tgtltem=New Notesltem(Routdoc, "PRoute_3", "") ■ 
Forall x In Item3.values 

Tgtltem.AppendToTextList x+ " "+Chr(010) 

End Forall 

Set Tgtltem=New Notesltem(Routdoc, "PRoute_4", "") 
Forall x In Item4.values 

TgtltenvAppendToTextList x+ " __"+ Chr(010) 

End Forall 

Set Tgtltem=New Notesltem(Routdoc, n PRoute_5 , \ ■") 
Forall x In ItemS.values 

TgtltemAppendToTextList x+" "+Chr(010) 

End Forall 
End If 

If RoutForm$- ProsRoutCR" Then 

Set Tgtltem=New Notesltem(Routdoc, "PRoute_3", B ") 
Forall x In Item3.values 

Tgtltem.AppendToTextList x+" "+Chr(010) 

End Forall 

Set Tgtltem=New Notesltem(Routdoc, "PRoute_4", Mw ) 
Forall x In Item4.values 

Tgtltem-AppendToTextList x + " "+ Chr(010) 

End Forall 
End If 

'Fill in the other info on the routing doc 

Routdoc.pros_rout_re=Ref$ 

Routdoc.route_type=rt$ 

Routdoc.ClientNameNum="Client: ■ + Clients + " - " +ClientNo$ 
Routdoc.MatterNameNum="Matten " + MatterName$ + " - " + MatterNo$ 
Routdoc.cre_date1=Now 

Routdoc.route_author1 =session.CommonUserName 
Set uidoc2=wortcspace.EditDocument(False t Routdoc, False) 
'Handle the Litigation and Other Routing Events 

Elseif Form$="Event" And (Project$="Counseliing and Advice" Or Project$="Other" Or 

Project$="Litigation") Then 

Call uidoc.Retoad 
'Get some specific form info 
Select Case Project$ 
Case "Litigation" 

LitRoutSsuidoc.FieldGetTextCLitigationEvent") 
Case "Counselling and Advice" 

LitRout$=uidoc.FieldGetText("CounselEvent") 
Case "Other 

LitRout$=uidoc.FieldGetText("OtherEvent") 
End Select 

'Create the routing document and populate it 
Set Routdoc = db.CreateDocument 
Routdoc.Form="LitRout" 

Routdoc.ClientNameNum=Client$ + " . " ♦ ClientNo$ 
Routdoc.MatterNameNum=MatterName$ + " - " +MatterNo$ 
Routdoc.lrt_rout_re=LitRout$ 
Routdoc.document-ref$ 

Routdocjoute_author1=session.CommonUserName 
Routdoc.cre_date1 =Now 
-Routdoc.lrt_route1_to=Att$ 
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Routdoc.Route_Type= rt$ 

Process routing info from Event/Task form 

Set doc=uidoc.document 

Dim RegName 0 As String 

Set iteml =doc.GetFirstltem( , 'lit_route_ev n ) 

Choices=item1 .values 

Redim RegName (Ubound (Choices)) 

counter=0 

Forall temp In Choices 

Set nn = New NotesName(temp) 

RightName$= nn.Common 

RegName(counter)=RightName$ +" " 

counter=counter+1 
End Forall 

Set Tgtltem=New Notesltem(Routdoc, "lit_route_to" t RegName) 
Set uidoc2=workspace.EditDocument(False 1 Routdoc, False) 
Else 

Messagebox There is no manual routing for this Event or Task.",0+16+0+0 

End If 'Man Routing 
End Sub 
(Action) Save and Close 

Sub Click(Source As Button) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace.CurrentDocument 

Dim Session As New NotesSession . 

Set db=session.CurrentDatabase 

'Define the the counterpart y variables for those x variables in postopen 
Client$=uidocPieldGetTextCCIient_Name") 
MatterNo$=uidocPieldGetText("Matter_No") 
Atty$=uidocPieldGetTextC'resp_atty") 
Project$=uidoc.FieldGetText( n Project w ) 

MBody$= n Client - " + Clients + Chr(010) + "Matter No. - " + MatterNo$ + Chr(010) 

"Project - " + Project$ 

yCopyright$=uidoc.FieldGetText(XopyrightEvenO 
yPatent$=uidoc.FieldGetTextCPatentEvent n ) 
yTrademark$=uidoc.FieldGetTextCTrademarkEvenn 
yCounsel$=uidoc.FieldGetText("CounselEvent") 
yLitigation$=uidoc.FieldGetTextCLitigationEvent f ') 
yOther$=uidoc.FieldGetTextC , OtherEvent") 
yEventDate=uidoc.FieldGetText("EventDate") 
yDesS^idoc.FieldGetTextfPDescrip") 
yAtty$=uidoc.FieldGetText( ,, resp_atty , ) 
yDescTm$=uidoc.FieldGetTextfdescJm") 
yDescPat$=uidoc.FieldGetText( ,, desc_patent") 
yOtherlnfo$=uidoc.FieldGetTextC , info_otheO 
yLitRouteEv$=uidoc.FieldGetTextClit_route_e>0 
'Grab values to check for a bad Task Closure 
UnHide$=uidocPieldGetTextnJnHideEV") 
RetireBy$=uidoc.FieldGetText("Retire_By") 
TEArchive$=uidoc.FieldGetTextCTEArchive") 
TEDateComplete$=uidoc.FieldGetTextCTEDateComplete") 
TEDate%=Len(TEDateComplete$) 



ClosingEV$=uidocPieldGetText("ClosingE\r) 
Before we do anything, Check for a bad task closure 
lfUnHide$="yes" Then 
. lfTEDate%< 1 Then 

Ok%=Messagebox( ,, You have attempted to retire this Event without properly 

completing the Closure 
information. "&_ 

. "Please provide the required closure information or use the 'Cancel 1 button to abort 

your changes 
!",0+48+0+0,"ERROR") 

lfOk%=1Then 

Exit Sub 
End If 
End If 
End If 

lfClosingEV$="yes"Then 
lfUnHide$= "yes" Then 

Ok%=Messagebox("Please Finish Retiring the Event by pressing the 'Retire Event 1 

button again." 
,0+48+0+0,"ERROR") 

lfOk%=1Then 

Exit Sub 
End If 
End If 
End If 

'Define some other variables 
yhist$=uidoc.FieldGetText("History") 

NewHistS = "Modified on n + Date$+" "+Time$ + " by " + Session.CommonUserName 
update$="N" 

'Set the PropClose field to Close so we can save the document 

Call uidoc.FieldSetTextfPropClose", "Closed") 

Call uidoc.FieldSetTextf TEArchive" , B no") 

'Check each field for change to compile the change history 

If xCopyright$ o yCopyright$ Then 

NewHistS = NewHistS &Chr(010) + "Event changed to: " + yCopyright$ + " from " + 

xCopyrightS 

update$="Y" 
End If 

If xPatent$ <> yPatent$ Then 

NewHistS = NewHistS &Chr(01 0) + "Event changed to: " + yPatentS + " from " + 

xPatent$ 

update$="Y" 
End If 

If xTrademarkS <> /Trademarks Then 

NewHistS = NewHistS &Chr(010) + "Event changed to: n + /Trademark + " from " + 

xTrademark$ 

update$="Y" 
End If 

If xCounselS <> yCounselS Then 

NewHist$= NewHistS &Chr(010) +"Event changed to: "+ yCounselS + " from " + 

xCounselS 

update$="Y" 
End If. 

If xLitigationS <> yLitigationS Then 
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NewHist$= NewHist$ &Chr(010) + "Event changed to: "+ yLitigation$ + " from " + 

xLitigation$ 

update$="Y" 
End If 

If xOther$ <> yOther$ Then 

NewHist$= NewHist$ &Chr(010) + "Event changed to: "+ yOther$ + " from M + xOther$ 

update$="Y" 
End If 

If xEventDate <> yEventDate Then 

NewHist$= NewHist$ &Chr(010) + "Event Date changed to: n + Format(yEventDate, 

"Short Date") + - from " + 
Format(xEventDate, "Short 
Date") 

update$="Y" 
End If 

If xdes$ <> ydes$ Then 

NewHist$= NewHist$ &Chr(010) + 'The Event Description was changed. " 

update$="Y M 
End If 

lfxAtty$ <>yAtty$ Then 

NewHist$= NewHist$ &Chr(010) + "Responsible Attorney was changed to: "+ yAtty$ + 

" from " + xAtty$ 

update$= f V 
End If 

If xDescTm$<>yDescTM$ Then 

NewHist$= NewHist$ &Chr(010) + "Routing information was changed to: "+yDescTM$ 

+" from "+xDescTM$ 

update$="Y" 
End If 

If xDescPat$<>yDescPat$ Then 

NewHist$= NewHist$ &Chr(010) + "Routing information was changed to: "+yDescPat$ 

+" from "+xDescPat$ 

update$="Y w 
End If 

If xOtherlnfb$<>yOtherlnfo$ Then 

NewHist$= NewHist$ &Chr(010) + "Routing information was changed to: "+yOtherlnfo$ 

+" from "+xOtherlnfo$ 

update$="Y" 
End If 

If xLitRouteEv$<>yLitRouteEv$ Then 

NewHist$= NewHist$ &Chr(010) + "Routing list was changed to: M +yLitRouteEv$ +" 

from n +xLitRouteEv$ 

update$="Y" 
End If 

•Append the new changes to the History 
If updates^ Then 
• If uidoc.lsNewDoc Then 

Call uidoc.FieldSetText("Status_1", "New") 

Call uidoc.FieldSetText ("History", "Document Created: " + Date$+" "+Time$ + " 

by " + 

Session.CommonUserName 
&Chr(010)) 

Else 

Call uidoc.Fie!dSetText("Status_1 "."Modified") 
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Call uidoc.FieldSetText ("History", NewHist$ &Chr(010) "+"- 



&Chr(010) + yhist$) 

End If 
End If 

Call uidoc.Save 
Call uidoc.Close 
End Sub 
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Editable 
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Is Scripted: 
Shared Field Reference: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



No 

PropClose 
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Computed 
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@GetDocField($Ref; 
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No 
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: "(Routing 
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Is Scripted: 
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Encryption: 
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Is Scripted: 
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Encryption: 
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Is Scripted: 
Field: 
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Encryption: 
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Is Scripted: 
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Formula: 



Action: 
Formula: 



Action: 

Formula: 
Action: 
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JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(Giobals) 

Option Public 
Use "UpdateFields" 

Variables for ClientName, ClientNo, MatterName, 

Public xDes$ 

Public xRespAtty$ 

Public xBillAtty$ 

Public xSNum$ 

Public xRelMat$ 

Public xPofaFa$ 

Public xPoA$ 

Public xConcpt$ 

Public xRp$ 

Public xlDisc$ 

Public xExDisc$ 

Public xWhom$ 
(Form) Matter 

Sub Postopen(Source As Notesuidocument) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 



@Command([FileClose 
Window]); 
Cancel 

FIELD SaveOptions := 

M 0";@Command([FileCloseWind 

ow]); 

Edit 

@Command([EditDocument]); 
New Project 

TList := ©DbColumnf; ,m : ""; 
"ProjectTypes"; 1);List := 
@lf(@lsError(TList); 
@Retum(@Prompt([OK]; 
"Error"; "An error has occured. 
Please try again.")); 
TList);ENVIRONMENT 
SubType := 

@Prompt([OKCANCELCOMBO 
]; "New Project"; "Choose one of 
the following:"; @Subset(List; 
1); List);@lf(Fomn = "Matter"; 
@Command([Compose]; ""; 
"Project"); @Prompt([OK]; 
"Error; "Please select the 
associated Matter before 
creating a new Project")); 



MattertSlo defined in script lib for update 
fields 
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Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
If uidoc.EditMode=True Then 

Call uidoc.FieldSetTextf PropClose", "Open 1 *) 
End If 

xMatte^Name$=uidoc.FieldGetText( ,, Matte^_Name ,, ) 

xMatterNo$=uidoc.FieldGetText( 0 Matte^.No ,, ) 

xDes$=uidocPieldGetTextCDescription") 

xRespAtty$=uidoc.FieldGetText( ,, resp_atty ,, ) 

xBillAtty$=uidoc.FieldGetText( M BilLAtty n ) 

xClientBill$=uidoc.FieldGetTextrclients_billing n ) 

xPlnventor$=uidoc.FieldGetTextf inventoO 
xSNum$=uidocPieldGetTextCserial_numbeO 
xRelMat$=uidoc.FieldGetText( ,, related_matter_no ,, ) 
xPofaFa$=uidoc.FieldGetText( M pofaJa w ) 
xPoA$=uidoc.FieldGetTextC'PoA") 
xConcpt$=uidoc.FieldGetTextfconcepr) 
xRp$=uidoc.FieldGetTexl( n rp w ) 
xlDisc$=uidoc.FieldGetText( ,, inhouse_disclos ,, ) 
xExDisc$=uidoc.FieldGetTextrexlemaLdisclos ,t ) 
xWhomS^idoc.FieldGetTextCwhom") 
End Sub 

Sub Postmodechange(Source As Notesuidocument) ' 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace.CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

If uidoc.EditMode=True Then 

Call uidoc.FieldSetText("PropClose , \ "Open 11 ) 

End If 
End Sub 

Sub Querysave(Source As Notesuidocument, Continue As Variant) 

Dim session As New NotesSession 

Dim db As NotesDatabase 

Set db=session.CurrentDatabase 

Dim workspace As NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

PropClose$=source.FieldGetTextfPropClose") 

If PropCloseSoXlosed" Then 

Ok%=MessageboxfYou must use the Save and Close button to save your work or use 

the Cancel button to abort your 
changes!" l 0+48+0+0 1 ,, ERROR ,, ) 

lfOk%=1Then 

continue=False 
End If 
End If 
End Sub 
(Action) Route via Email 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
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Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim doc2 As NotesDocument 
Dim maildoc As NotesDocument 
Dim view As NotesView 

'Get some data from the base document and set the variables 

yAtty$=uidoc. FieldGetText("resp_atty") 

BilAtty$=uidoc.Fie!dGetTextCbilCatty") 

Client$=uidoc.FieldGetTextC , Clie7it_Name M ) 

Matter$=uidoc.FieldGetTextCMatterJvJame") 

MatterNo$=uidoc.FieldGetTextfMatterJsio M ) 

Sender$=Session.CommonUserName 

'Electronically route the info to the default profile and the attorney 
If uidoc.lsNewDoc Or xAtty$oyAtty$ Then 
Set maildoc = New NotesDocument(db) 
maildoc.Form-'MailNot" 

'Set the default routing (SendTo field) and bring up the form 

Set view = db.GetView( "(Routing Profile)" ) 

Set doc = view.GetFirstDocument 

maiIdoc.SendTo=doc.NewMatter_Routing 

maildoc.CopyTo=Sender$ 

maildoc.Subject="New Matter Notification" 

'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 

Dim rtStyle As NotesRichTextStyle 

Set rtStyle=session.CreateRichTextStyle 

With rtiBody 

rtStyle.bold=True 

.AppendStyle(rtStyle) 

.AppendText "Reference: " 

rtStyle.bold=False 

.AppendStyle(rtStyle) 

.AppendText "New Matter - " + Matter$ + " [" + MatterNo$ + "]" 
.AddNewLine 2 

.AppendText "Please note that a new Matter has been created for " + Clients +" " 
.AddNewLine 2 

.AppendText yAtty$ +" is the responsible attorney for this Matter." 
.AddNewLine 1 

.AppendText BilAtty$ + w is the billing attorney." 
.AddNewLine 2 
rtStyle.bold=True 
AppendStyle(rtStyle) 
.AppendText "Comments: " 
End With 'rtibody 

maildoc.HoldTxt=rtiBody.GetFormattedText(False 1 70) 

Flag=workspace.DialogBoxC(MailNot)", True, True, False, False, False, False, "New 

Matter Notification",Maildoc) 

lfFlag=True Then 

Set item= maildoc.GetFirstltemC'EditTxt") 

rtStyle.bold=False 

Call rtiBody .AppendStyle(rtStyle) 

Forall Text In item.values 



Call rtibody.AppendText (text) 

Call rtibody .AddNewLine (1 ) 
End Forall 
With rtiBody 

.AddNewLine 2 

AppendText "Please click here to view details of this Matter- > w 

.AppendDocLink uidoc.document 
.AddNewLine 2 
End With 

maildoc.EditTxt= ,m 

maildoc.Form="Memo" 

maildoc.HoldTxt="" 

Call maildoc.Send(False) 
End If 'dialogbox for message to default group 

'If uidoc. IsNewDoc Or xAtty$oyAtty$ Then 
maildoc.Form= n MaiINot" 
maildoc.SendTo=yAtty$ + "; " + BilAtty$ 
maildoc.CopyTo=Sender$ 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

rtStyle.bold=True 

AppendStyle(rtStyle) 

.AppendText "Reference: " 

rtStyle.bold=False 

.AppendStyle(rtStyle) 

.AppendText "New Matter - " + Matter$ + " [ M + MatterNo$ + T 
AddNewLine 2 

.AppendText "Please note that a new Matter has been created for " + Client$ +V 
.AddNewLine 2 

.AppendText respAtty$ + " is the responsible attorney for this Mattert." 
.AddNewLine 1 

.AppendText BilAtty$ + " is the billing attorney." 
.AddNewLine 2 
rtStyle.bold=True 
.AppendStyle(rtStyle) 
.AppendText "Comments: " 
End With 'rtibody 

maiIdoc.HoldTxt=rtiBody.GetFormattedText(False l 70) 

Flag=workspace.DialogBoxC(MailNot)" t True, True, False, False, False, False, "New 

Matter Notification n ,Mai!doc) 

lfFlag=True Then 

Set item= maildoc.GetFirstltemfEditTxt") 

rtStyle.bold=False 

Call rtiBodyAppendStyle(rtStyle) 

Forall Text In item.values 

Call rtibodyAppendText (text) 

Call rtibody. AddNewLine (1 ) 
End Forall 
With rtiBody 

AddNewLine 2 

.AppendText "Please click here to view details of this Matter >" 

AppendDocLink uidoc.document,"" 
AddNewLine 2 
End With 
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maildoc.EditTxt="" 
maildoc.Form="Memo" 
maildoc.HoldTxt^" 
Gall maildoc.Send(False) 
End If 
f End If 
'End If 
End Sub 
(Action) Save & Close 

Sub Click(Source As Button) 
Dim db As Not esData base 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim theAgent As NotesAgent 

'Define the the counterpart y variables for those x variables in postopen 

yMatterName$=uidoc.FieldGetTextf MatterJMame") 

yMatterNo$=uidoc.FieldGetTextC , Matter_No ;, ) 

yDesS^uidoc.FieldGetTextfDescription") 

yRespAtty$=uidoc.FieIdGetText("resp_atty") 

yBillAtty$=uidoc.FieldGetTextC , BilLAtty") 

yClientBill^uidocFieldGetTextfclients^billing") 

yPlnventor$=uidocPieldGetText("inventor") 

ySNum$=uidoc.FieldGetTextCseriaLnumbeO 

yRelMat$=uidoc.FieldGetText( n related_matter_no n ) 

yPofaFa$=uidoc.ReldGetText( M pofa_fa") 

yPoA$=uidoc.FieldGetText("PoA") 

yConcpt$=uidoc.ReldGetText("concept") 

yRp$=uidoc.FieldGetText("rp") 

ylDisc$=uidocPieldGetText("inhouse_disclos") 

yExDisc$=uidoc.FieldGetText( ,, extemaLdisclos ,, ) 

yWhom$=uidoc.FieldGetText( M whom") 

'Define some other variables 

yhist$=uidocPieldGetText("History") 

NewHist$ = "Modified on " + Date$+" "+Time$ + " by " + Session.CommonUserName 
update$="N" 

'Set the PropClose field to Close so we can save the document 
Call uidoc.FieldSetTextCPropClose", "Closed") 
'Check each field for change to compile the change history 
If xMatterName$ <> yMatterName$ Then 

NewHist$ = NewHist$ &Chr(010) + "Matter Name changed to: " + yMatterName$ + 

from " + xMatterName$ 

update$="Y" 
End If 

If xMatterNo$ <> yMatterNo$ Then 

NewHist$ = NewHist$ &Chr(010) + "Matter Number changed to: " + yMatterNo$ + " 

from " + xMatterNo$ 

update$="Y" 
End If 

If xDes$ <> yDes$ Then 

NewHist$ = NewHist$ &Chr(010) + "Matter Description changed." 
update$="Y" 



End If 

If xRespAtty$ <> yRespAtty$ Then 

NewHist$= NewHist$ &Chr(010) +"Responsible Attorney changed to: M + yRespAtty$ + 

" from " + xRespAtty$ 

update$="Y" 
End If 

If xBillAtty$ <> yBillAtty$ Then 

NewHist$= NewHist$ &Chr(010) + "Biling Attorney changed to: "+ yBillAtty$ + " from " 

+ xBillAtty$ 

update$="Y" 
End If 

If xClientBill$ <> yClientBill$ Then 

NewHist$ = NewHist$ &Chr(010) + "Clienfs Billing Number changed to: " + yClientBill$ 

+ " from " + xClientBill$ 

update$='Y" 
End If 

If xPlnventor$ <> yPlnventor$ Then 

NewHist$ = NewHist$ &Chr(010) + "Inventor changed to: " + yPlnventor$ + ■ from " + 

xPlnventor$ 

updateSs"^ 
End If 

If xSNum$ <> ySNum$ Then 

NewHist$ = NewHist$ &Chr(010) + "Serial Number changed to: " + ySNum$ + " from n 

+ xSNum$ 

update$ =f Y" 
End If 

If xRelMat$ <> yRelMat$ Then 

NewHist$ = NewHist$ &Chr(010) + "Related Matter Number changed to: n + yRelMat$ 

+ n from " + xRelMat$ 

update$= f Y w 
End If 

If xPofaFa$ <> yPofaFa$ Then 

NewHist$ = NewHist$ &Chr(010) + "Classes changed to: " + yPofaFa$ + " from " + 

xPofaFa$ 

update$="Y" 
End If 

If xPoA$ <> yPoA$ Then 

NewHist$ = NewHist$ &Chr(010) + "Power of Attorney changed to: " + yPoA$ + ■ from 

" + xPoA$ 

update$= , Y n 
End If 

If xConcpt$ <> yConcpt$ Then 

NewHist$ = NewHist$ &Chr(010) + "Concept Date changed to: " + yConcpt$ + " from " 

+ xConcpt$ 

update$="Y" 
End If 

lfxrp$ <> yrp$Then 

NewHist$ = NewHist$ &Chr(010) + "Reduction to Practice changed to: " + yrp$ + " from 

" + xrp$ 

update$="Y" 
End If 

If xlDisc$ <^ ylDisc$ Then 

NewHist$ = NewHist$ &Chr(010) + "Inhouse Disclosure Date changed to: " + ylDisc$ + 

" from + xlDisc$ 
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update$="Y" 
End If 

If xExDisc$ <> yExDisc$ Then 

NewHist$ = NewHist$ &Chr(010) + "External Disclosure Date changed to: " + yExDisc$ 



update$="Y" 
End If 

If xWhom$ <> yWhom$ Then 

NewHist$ = NewHist$ &Chr(010) + 'To Whom disclosed changed to: n + yWhom$ + " 



update$="Y" 
End If 

'Append the new changes to the History 
If update$="Y" Then 
If uidoclsNewDoc Then 

Call uidoc.FieldSetTextCStatusJ "New") 

Call uidoc.FieldSetText ("History", "Document Created: " + Date$+" "+Time$ + 



Call uidoc.Save 
Call uidoc.Close 
Else 

Call uidoc.FieldSetTextCStatusJ "."Modified") 

Call uidoc.FieldSetText ("History", NewHist$ &Chr(010) +"- 



End If 
End If 

'Save the document, update the children and close the document 

Call uidoc.Save 

If Not uidoclsNewDoc Then 

Call SetRelds(uidoc.document) 
End If 

Call uidoc.Close 



+ " from " + xExDisc$ 



from " + xWhom$ 



by " + 

Session.CommonUserName 
&Chr(010)) 



&Chr(010) + yhist$) 



End Sub 



Name: 

Last Modification: 

Comment: 

Type: 

Window Title Formula: 



Project 

07/28/1999 10:03:29 AM 
[Not Assigned] 
Response to Response 
@lf(@lsNewDoc; "New 
Project"; Project +"-"+. 
ClientJMame); 



Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 



No 

Yes 

No 

No 

No 

No 

Yes 

No 
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Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 



No 
No 
No 
No 

[None Assigned] 
All Users 
All Users 

ClientDocID 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; ClientDocID; 

@GetDocField($Ref; 

"ClientDocID")); 

No 

MatterDocID 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; MatterDocID; 

@GetDocField($Ref; 

"MatterDocID")); 

No 

ProjectDocID 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@Text(@DocumentUniquelD); 

No 

Title 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

-None-| 

Dr.|Dr. 

Prof.|Prof. 

Mr.|Mr. 

Ms.|Ms. 

Miss|Miss 

Mrs. (Mrs. 

No 
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Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 



Disabled 

No 

No 

FirstName 
Text 

First name(s) and nicknames - 
e.g. John; Johnny 
Editable 
No 

Disabled 

Yes 

No 

Middlelnitial 

Text 

Middle Initial with a trailing 
period (optional). 
Editable 
No 

Disabled 

Yes 

No 

LastName 
Text 

Last name - e.g. Smith. 

Editable 

No 

Disabled 

Yes 

No 

Suffix 

Keywords 

[Not Assigned] 

Editable 

Standard 

No 

-None-| 
Jr.JJr. 
Sr.|Sr. 
I 

II 
III 
No 

Disabled 

No 

No 

StreetAddress 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
No 
City 



Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
- Encryption: 
Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Formula: 

Is Scripted: 
Shared Field Reference: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 



Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

State 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

ZIP 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Country 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

SubType 
Text 

[Not Assigned] 
Computed when composed 
No 

Disabled 
No 

@EnvironmentCSubType"); 
No 

PropClose 

ClientJSJame 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; Client_Name; 

@GetDocField(ClientDoclD; 

XlienLName")); 

No 

ClientNo 
Text 
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Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Formula: 

Is Scripted; 
Shared Field Reference: 
Shared Field Reference: 
Field: 

Datatype: 

Input Multi- Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; Client_No; 

@GetDocField(ClientDoclD; 

,, Client_No M )); 

No 

MatterJSIame 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; Matter_Name; 

@GetDocField(MatterDoclD; 

"Matter_Name")); 

No 

Matter_.No 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; Matter_No; 

@GetDocField(MatterDoclD; 

w Matter_No")); 

No 

Project 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

SubType 
No 

crejJate 
PDescrip 
ProjectCountry 

Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Standard 

Yes 

United States (US) 
Afghanistan (AF) 
Africa (OA) 
ALbania (AL) 
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ALgeria (DZ) 
Andorra (AD) 
Angola (AO) 
Anguilla (Al) 
Antigua (AG) 
Argentina (AR) 
Armenia (AM) 
Aruba (AB) 
Australia (AU) 
Austria (AT) 
Azerbijan (AZ) 
Bahamas (BS) 
Bahrain (BH) 
Bangladesh (BD) 
Barbados (BB) 
Belarus (BY) 
Belarussia (BL) 
Belgium (BE) 
Belize (BZ) 
Benelux (BX) 
Bermuda (BM) 
Bhutan (BT) 
Bolivia (BO) 
Boputhatswana (BP) 
Bosnia-Hercegovina (BA) 
Botswana (BW) 
Brazil (BZ) 

British Virgin Islands (BV) 
Brunei (BN) 
Bulgaria (BG) 
Burundi (Bl) 
Cambodia (CB) 
Canada (CA) 
Cape Verde Islands (CV) 
Cape Verde (CV) 
Cayman Islands (KY) 
Central African Republic (CF) 
Chad (TD) 
Chile (CL) 
China (CN) 
Colombia (CO) 
Congo (CG) 
Costa Rica (CR) 
Croatia (HR) 
Cuba (CU) 
Cyprus (CY) 
Czech Republic (CZ) 
Denmark (DK) 
Djibouti (DJ) 
Dominica (DM) 
Dominican Republic (DO) 
Ecuador (EC) 
Egypt (EG) 
□ Salvador (SV) 



England (GB) 
Eritrea (ER) 
Estonia (EE) 
Ethopia (ET) 

European Community TMK (CT) 

European Community (EU) 

Falkland Island (FK) 

Fiji Islands (FJ) 

Finland (Fl) 

France (FR) 

Gabon (GA) 

Gambia (GM) 

Gaza District (GZ) 

Gazadia (GZ) 

Georgia (GE) 

Germany East (DD) 

Germany West (DE) 

Ghana (GH) 

Gibraltar (Gl) 

Gilbert (GL) 

Great Britain (GB) 

Greece (GR) 

Grenada (GD) 

Guam (GX) 

Guatemala (GT) 

Guernsey (GS) 

Guinea (GN) 

Guyana (GY) 

Haiti (HT) 

Honduras (HN) 

Hong Kong (HK) 

Hungary (HU) 

Iceland (IS) 

India (IN) 

Indonesia (ID) 

International (WO) 

Iran (IR) 

Iraq(IQ) 

Israel (IL) 

Italy (IT) 

Ivory Coast (CI) 

Jamaica (JM) 

Japan (JP) • 

Jersey (JE) 

Jordan (JO) 

Kazakhstan (KZ) 

Kenya (KE) 

Kiribati (Kl) 

Kuwait (KW) 

Kyrgystan (KG) 

Laos (LA) 

Latvia (LV) 

Lebanon (LB) 

Lesotho (LS 
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Liberia (LR) 
Libya (LY) 
Lichtenstein (LI) 
Lithuania (LT) 
Luxembourg (LU) 
Macau (MM) 
Macau (MO) 
Macedonia (MK) 
Madagascar (MG) 
Malawi (MW) 
Malaya (MQ) 
Malaysia (MY) 
Maldiv (MV) 
Mali (ML) 
Malta (MT) 
Mauritius (MU) 
Mexico (MX) 
Moldova (MD) 
Monaco (MC) 
Mongolia (MN) 
Montserrat (MS) 
Morocco (MA) 
Mozambique (MZ) 
Myanmar (BU) 
Namibia (NA) 
Nepal (NP) 

Netherlands Antilles (NT) 
Netherlands (NL) 
New Zealand (NZ) 
Nicaraguia (Nl) 
North Korea (KP) 
Norway (NO) 
Oman (OM) 
Pakistan (PK) 
Panama (PA) 
Papua New Guinea (PG) 
Paraguay (PY) 
PCT World (WO) 
Peru (PE) 
Philippines (PH) 
Poland (PL) 
Portugal (PT) 
Puerto Rico (PO) 
Qatar (OA) 
Ras-al-Khaimah (RK) 
Republic of Ireland (IE) 
Republic of Nambia (WA) 
Republic of Yemen (YD) 
Romania (RO) 
Russia (RU) 
Rwanda (RW) 
Sabah (SB) 
San Marino (SM) 
Sarawak (SJ) 



Saudi Arabia (SA) 
Senegal (SN) 
Seychelles (SC) 
Sierra Leone (SL) 
Singapore (SG) 
Slovak Republic (SK) 
Slovenia (SI) 
Solomon Islands (SS) 
Somalia (SO) 
South Africa (ZA) 
South Korea (KS) 
Spain (ES) 
Sri Lanka (LK) 
St. Christopher (CP) 
St Helena (SH) 
St Kitts-Nevis (KN) 
St Lucia (LC) 
St Vincent (VC) 
Sudan (SD) 
Surinam (SR) 
Swaziland (SZ) 
Sweden (SE) 
Switzerland (CH) 
Syrian Arab (SY) 
Taiwan (TW) 
Tajikistan (TJ) 
Tangier (Tl) 
Tanzania (TY) 
Thailand (TH) 
Togo (TG) 
Tonga (TO) 
Transkei (TE) 
Trinidad (TT) 
Tunisia (TN) 
Turkey (TR) 

Turkish Republic of North 
Cyprus (CT) 
Turkmenistan (TM) 
Turks & Caicos (TC) 
Tuvalu (EL) 
Uganda (UG) 
Ukraine (UA) 

United Arab Emirates (AE) 
United Kingdom (GB) 
Upper Volta (BF) 
Uraguay (UY) 
Uzbekistan (UZ) 
Vanuata (VU) 
Venda (VD) 
Venezuela (VE) 
Vietnam (VN) 
Virgin Islands (VI) 
West Bank (WB) 
Western Samoa (WS) 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allowable Keywords: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

input Multi-Value Separators): 
Display Multi-Value Separator 



World (WO) ■ 

Yemen Democratic Republic 

(YD) 

Yemen North (YE) 
Yugoslavia 
Zaire (ZR) 
Zambia (ZM) 
Zanzibar (ZZ) 
Zimbabwe (ZW) 
No 

Disabled 

No 

No 

SepProj 

Keywords 

[Not Assigned] 

Editable 

Radio Buttons 

No 

Yes 

No 

Disabled 
No 
"No" 
No 

Associate 

Names 

Comma 

Comma 

[Not Assigned] 

Editable 

No 

Disabled 
No 

@Name([CN]; Associate); 

No 

Nass 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

last := 

@Trim(@RightBack(@Name([C 
NJ; Associate); " "));first := 
@Trim(@Left(@Name([CN]; 
Associate); n "));name := last + " 
, " + first;name; 
No 

Assoc_Address 
Text 
Comma 
Comma 
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Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



Is Scripted: 
Shared Field Reference: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Section Title: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Shared Field Reference: 
Shared Field Reference: 
Action: 

Formula: 



Action: 
Formula: 



Action: 
Formula: 



[Not Assigned] 

Editable 

No 

Disabled 
No 

CLASS := "Notes";NOCACHE 
:= "NoCache";CACHE := 
"Cache"; SERVER := 
@Name([CN]; 
@Subset(@DbName; 
1));DATABASE := 
"names.nsf ;VIEW := 
"BCard";KEY := Nass;VAL := 
4;LOOKUP := 
@DbLookup(CLASS : 
NOCACHE; SERVER : 
DATABASE; VIEW; KEY; 
VAL);@lf(Associate != tt "; 
@lf(@lsError(LOOKUP); 
"Error"; LOOKUP); ""); 
No 

resp_atty 
PComments 

Text 

Comma, Semicolon 
Semicolon 

[Not Assigned] ✓ 

Editable 

No 

Disabled 

No 

No 

Document_Statistics 

Section 
Comma 

Document Statistics 

Editable 

No 

Disabled 

No 

No 

Statusjl 

History 

Close 

@Command([FileClose 
Window]); 
Cancel 

FIELD SaveOptions := 

"0";@Command([FileCloseWind 

ow]); 

Edit 

@Command([EditDocumentp; 
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Action: 



New Event 

@Command([Compose]; 

"Event"); 

New Task 

©Command ([Compose] ; 
"Task"); 



Formula: 



Action: 



Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(Globals) 

Option Public 

Use "UpdateFields" 

'Form Variables 

Public xCountry$ 

Public xAssociate$ 

Public xAssAdd$ 

Public xAtty$ 

Public SubFonm$ 

Public xProj$ 

Public xPDescrip$ 

Public xPComments$ 

'Subform shared variables 

Public xComments$ 

'Declare variables for the subforms 

'C&A 

Public xAffiliatedPty$ 
'Public xAffiliatedPty1$ 
'Public xAffiliatedPty2$ 
'Public xAffiliatedPty3$ 
•Public xAffiliatedPty4$ 
Public xAffiliatedAtty$ 
•Public xAffiliatedAtty1$ 
•Public xAffiliatedAtty2$ 
•Public xAflfiliatedAtty3$ 
•Public xAffiliatedAtty4$ 
Public xPType$ 
. 'Litigation 
Public xStyle$ 
Public xLitType$ . 
Public xActionNo$ 
Public xJudge$ 
Public xACouncel$ 
Public xOC6uncel$ 
Public xCoCouncel$ 
•Other 

Public xText$ 
'ProsCopyright 
Public xCSerial$ 
Public xCAppType$ 
Public xCRSerialr$ 
Public xCRMatler$ 
Public xAuthor$ 
Public xApCouncel$ 



Public xOwner$ 
Public xTransfer$ 
'ProsTM 

Public xTMSerial$ 
Public xTMAppType$ 
Public xTMRApp$ 
Public xTMRMatter$ 
Public xTM$ 
Public xMark$ 
Public xGoods$ 
Public xClass$ 
Public xTMOwner$ 
Public xTMPofa$ 
Public xFirUse$ 
Public xlSUse$ 
Public xFilDte$ 
Public xTerm$ 
Public xTDate$ 
Public xHTerm$ 
Public xRewnl$ 
'ProsPatent ( 
'Public xClientBill$ 
'Public xPlnventor$ 
Public xPSerial$ 
Public xPApType$ 
Public xPRApType$ 
Public xPRMatter$ 
Public xPPofa$ 
Public xPFileDate$ 
Public xPTermDate$ 
Public xWhyTerm$ 
Public xPMaint$ 
Public xPPOA$ 
(Form) Project 

Sub Querymodechange(Source As Notesuidocument, Continue As Variant) 
End Sub 

Sub Querysave(Source As Notesuidocument, Continue As Variant) 

Dim session As New NotesSession 

Dim db As NotesDatabase 

Set db=session.CurrentDatabase 

Dim workspace As NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

PropClose$=source.ReldGetText("PropClose") 

If PropClose$<>"Closed" Then 

Ok%=Messagebox("You must use the Save and Close button to save your work or use 

the Cancel button to abort your 
changesr i 0+48+0+0 l w ERROR M ) 

If Ok%=1 Then 

continue=False 
End If 
End If 
End Sub 

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, 

Continue As Variant) 
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End Sub 

Sub Postmodechange(Source As Notesuidocument) 

Dim db As NotesDatabase 

Dim workspace As New NotesU I Workspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace.CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

If uidoc.EditMode=True Then 

Call uidoc.FieldSetTextC'PropClose' 1 , "Open") 

End If 
End Sub 

Sub Postopen(Source As Notesuidocument) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace.CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 
'Set the PropClose field to Open to trap the Esc key 

If uidoc.EditMode=True Then 

Call uidoc.FieldSetTextCPropClose", "Open") 

End If 

'Define the form variables to pull from form 

xCountry$=uidoc.FieldGetTextCProjectCountry") 

xAssociateS^uidoc.FieldGetTextfAssociate") 

xAssAdd$=uidoc.FieldGetText( w Assoc_Address tt ) 

xAtty$=uidoc.FieldGetTextfresp_atty M ) 

SubForm$=uidoc.FieldGetTextfSubform M ) 

xPOescn^^idocPieldGetTextCPDescfip 11 ) 

xProj$=uidoc.FieldGetTextCProjecT) 

xPComments$=uidoc.FieldGetTextCPComments ,, ) 

'Pull Info from the subforms 

*C&A 

If Subform$="C&A" Then 

xAffiliatedPty$=uidoc.FieldGetTextraffiliated_pty") 
'xAffiliatedPty 1 $=uidoc.FieldGetTextC , affiliated_pty_1 ") 
, xAffiIiatedPty2$=uidoc.ReldGetText( w affiliated_pty_2 ,, ) 
•xAffiliatedPtySS^uidocFieldGetTextCaffiliated^pty^") 
, xAffiliatedPty4$=uidoaReldGetText( n affiliated _pty_4") 

'xAffiliatedAtty$=uidoc.FieldGetTextCaffj)ty_counsen 

'xAffiliatedAtty 1 $=uidoc.FieldGetTextCafLpty_counseL1 ") 

, xAffiliatedAtty2$=uidocPieldGetText( w affjDtyIcounseL2 , 7 

, xAffiliatedAtty3$=uidoc.FieldGetTextCaffjty_counser3") 

, xAffiliatedAtty4$=uidocPieldGetTextfaffJty_counseL4 , ) 

xComments$=uidoc.FieldGetText("comments5 

xPType$=uidoc.FieldGetTextHype project") 

End If 
litigation 

If Subform$="Litigation" Then 

xStyle$=uidoc.FieldGetTextC , case_style ,, ) 
xLrtType$=uidoc.FieldGetTextOitJype M ) 
xActionNo$=uidoc.FieldGetText( n civil_action_no ,, ) 
xJudge$=uidoc.FieldGetTextfjudgeTr 



xACounce^uidoc.FieldGetTextfappear^counsel") 
xOCouncel$=uidocPieldGetTextCopp^ounsel") 
xCoCouncel$=uidoc.FieldGetTextrcojcounser') 
xComments$=uidocPieldGetText( M comments")" 
End If 
•Other 

If Subform$= n Other" Then 

xText$=uidoc.neldGetText("text_other) 
End If 
ProsCopyright 

If Subform$="ProsCopyright" Then 

xCSerial$=uidocPieldGetTextfserial_numbeO 

xCAppType$=uidoc.FieldGetTextfapp_type w ) 

xCRSerial$=uidocPieldGetText("related_sn") 

xCRMatter$=uidoc.FjeldGetTexlfrelated_matters") 

xAuthoi$=uidoc.FieldGetTextfauthor_cw^ 

xApCouncel$=uidoc.FieldGetTextrappearance_counsel") 

xOwner$=uidoc.FieldGetTextfowner - cw M ) 

xTransfe^uidoc.FieldGetTexlClransfer^cw") 

End If 
ProsTM 

If Subform$= w ProsTM B Then 

xTMSerialSsuidoc.FieldGetTextCseriaLnumbeO 

xTMAppTypeSsuidoc.FieldGetTextCtm^app^type") 

xTMRApp$=uidoc.FieldGetTextC , related - apps M ) 

xTMRMatter$=uidoc.FieldGetTexlCrelated_matte^.no ,, ) 

xTM$=uidoc.FieldGetTextCtm") 

xMaricS^uidocFieldGetTextC'mark") 

xGoods$=uidoc.FieldGetTextfgoods_senO 

xClass$=uidoc.ReldGetTexlCclasses") 

xTMOwner$=uidoc.FieldGetText( M owneO 

xTMPofa$=uidoc.FieldGetTextrpofaJa") 

xFlrUse$=uidoc.FieldGetTextC , first_use ,, ) 

xlSUse$=uidocPieldGetText("i_state_use") 

xFilDte$=uidoc.ReldGetTextffilingLdate") 

xTerm$=uidoc.FieldGetTexlC , termination , 7 

xTDateSsuidocReldGetTextnenm^date") 

xHTenn$=uidoc.Fie!dGetTextChowJenm^ 

xRewnl$=uidoc.FieldGetTextC'renewar') 

End If 
'ProsPatent 

If Subform$="ProsPatent" Then 

xClientBil^uidoc.FieldGetTexlfclients^billing") 

xPlnventorSsuidoc.FieldGetTexlfinventoO 

xPSerial$=uidoc.FieldGetTextrseriaLnumben 

xPApType$=uidoc.FieldGetText( ,, app_type w ) 

xPRApType^uidocPieldGetTextCYelated^apps") 

xPRMatter$=uidoc.FieldGetTextrrelated_matter_no") 

xPPofa$=uidocPieldGetText( , 'pofa_fa w ) " 

xPFileDate$=uidoc.FieldGetText( n filing_date n ) 

xPTermDate$=uidoc.FieldGetTextnerm_date n ) 

xNA/hyTefmSsuidoc.FieldGetTexlCwhyJenm") 

xPMaint$=uidocPieldGetText("mainr) 

xPPOA^uidocFieldGetTextCPoA") 



End If 
End Sub 
(Action) Route via Email 

Sub Click(Source As Button) 

Dim db As NotesDatabase . 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace.CurrentDocument 

Dim Session As New NotesSession 

Set db=$ession.CurrentDatabase 

Dim doc As NotesDocument 

Dim doc2 As NotesDocument 

Dim maildoc As NotesDocument 

Dim view As NotesView 

'Get some data from the base document and set the variables 

yAtty$=uidoc.ReldGetText{ n resp^atty M ) 

Project$=uidoc.FieldGetTextC , Project w ) 

C!ient$=uidoc.FieldGetTextCCIienLName ,, ) 

ClientNo$=uidoc.FieldGetTextrclient_No n ) 

Matter$=uidoc.FieldGetTextfMatterJiame") 

MatterNo$=uidoc.ne!dGetText("Matter_No") 

Sender$=Session.CommonUserName 

'Electronically route the info to the default profile and the attorney 
'If uidoc.lsNewDoc Or xAtty$oyAtty$ Then . 
Set maildoc = New NotesDocument(db) 
maildoc.Form=="MailNot" 

•Set the default routing (T o and CC fields) and bring up the form 

Set view = db.GetView( "(Routing Profile)" ) 

Set doc = view.GetFirstDocument 

maildoc.SendTo=doc.NewProjLRouting 

maildoc. CopyTo=Sender$ 

maildoc.Subject="New Project Notification" 

'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 

Dim rtStyle As NotesRichTextStyle 

Set rtStyle=session.CreateRichTextStyle 

With rtiBody 

rtStyle.bold=True 

.AppendStyle(rtStyle) 

.AppendText "Reference: ■ 

.AddTab 1 

rtStyle.bold=False 

.AppendStyle(rtStyle) 

.AppendText "Client - " + Clients 

.AddNewLine 1 

.AddTab 2 

.AppendText "Matter - " + Matters + "[" + MatterNo$ + T 
.AddNewLine 2 

.AppendText "Please note that a new Project has been created for the referenced 

Matter. This is a " + Projects + 
" project." 

.AddNewLine 2 

.AppendText yAttyS +" has been assigned as the responsible attorney for this Project " 
.AddNewLine 2 
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rtStyle.bold=True 
.AppendStyle(rtStyle) 
.AppendTexl "Comments: " 
End With Ytibody 

maildoc.HoldTxt=rtiBody.GetFomiattedText(False, 70) 

Flag=workspace.DialogBoxr(Mai!Not) n ( True, True, False, False, False, False, "New 

Project Notification",Maildoc) 

lfFlag=True Then 

Set item= maildoc.GetFirstltemfEditTxt") 

rtStyle.bo!d=False 

Call rtiBody.AppendStyle(rtStyle) 

Forall Text In rtem.values 

Call rtibody.AppendText (text) 

Call rtlbody.AddNewLine (1) 
End Forall 
With rtiBody 

.AddNewLine 2 

AppendText "Please click here to view details of this Project >" 

.AppendDocLink uidoc.document,"" 
.AddNewLine 2 
End With 

maildoc.Ediflxt="" 

maildoc.Form="Memo M 

maildoc.HoldTxt=" H 

Call maildoc.Send(False) 
End If 'dialogbox for message to default group 
•Notify the responsible attorney 
•If uidoc. IsNewDoc Or xAtty$oyAtty$ Then 
maildoc.Fonm= n MailNot n 
maildoc.SendTo =,m 
maildoc.body="" 
maildoc.SendTo=yAtty$ 
maildoc.CopyTo=Sender$ 

Set rtiBody = New NotesRichTextltem (malldoc, "Body") 
With rtiBody 

rtStyle.bold=True 

.AppendStyle(rtStyle) 

.AppendText "Reference: " 

.AddTab 1 

rtStyle.bold=False 

.AppendStyle(rtStyle) 

.AppendText "Client - " + Client$ 

.AddNewLine 1 

.AddTab 2 

.AppendText "Matter - " + Matter$ + M [" + MatterNo$ + T 
.AddNewLine 2 

.AppendText "Please note that a new Project has been created for the referenced 

Matter. This is a " + Project$ + 
"project." 

.AddNewLine. 2 

.AppendText "You have been designated the responsible attorney for this Project." 

.AddNewLine 2 

rtStyle;bold=Taie 

.AppendStyle(rtStyle) 
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.AppendText "Comments: " 
End With 'rtibody 

maildoc.HoldTxt=rtiBody.GetFormattedText(False r 70) 

Flag=^orkspace.DialogBoxf(MailNot)", True, True, False, False, False, False, "New 

Project Notification'\Maildoc) 

lfFlag=True Then 

Set item= maildoc.GetFirstltemC'EditTxt") 

rtStyle.bold=False 

Call rtiBody.AppendStyle(rtStyle) 

Forall Text In item.values 

Call rtibody AppendText (text) 

Call rtibody.AddNewLine (1) 
End Forall 
With rtiBody 

.AddNewLine 2 

AppendText "Please click here to view details of this Project > n 

AppendDocLink uidoc.document,"" 
.AddNewLine 2 
End With 

maildoc.EditTxt= ,m 
maildoc.Form="Memo" 
maildoc.HoldTxt=="" 
Call maildoc.Send(False) 
End If 
•End If 
•End If 
End Sub 
(Action) Save & Close 

Dim db As NotesDatabase 

Dim workspace As NotesU (Workspace 

Dim Session As NotesSession 

Dim uidoc As NotesUIDdcument 

Dim doc As NotesDocument 

Dim newdoc As NotesDocument 

Dim pdoc As NotesDocument 

Dim cltem As Notesltem 

Sub Click(Source As Button) 

•Declare the counterpart y variables to the xGlobals for form 
yCountry$=uidoc.HeldGetText("ProjectCountry") 
ytesociate$=uidoc.RekJGetTextfAssociate M ) 
yAssAdd$=uidoc.FieldGetText("Assoc_Address") 
yAtty$=uidoc.ReldGetText("resp_atty") 
yPDescripS^idoaFieldGetTextCPDescrip") 
yProj$=uidoc.FieldGetTextCProject") 
yPComments$=uidoc.FieldGetTextCPComments") 
'Check to see if we need to create more project documents. If so go do it. 
temp$=uidoc.FieldGetTextCSepProj") 
If (uidoc.lsNewDoc) And (temp$= "Yes") Then 
Call uidoc.Refresh 
ProcessProjects 
End If 

•Rnd out which subform we are using so we can set other variables 

SubForm$=uidoc.ReldGetText("Subform") 

•Pull Info from the subforms 
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•C&A 

lfSubform$= n C&A" Then 

yAffiliatedPtySsuidoc.FieldGetTextCaffiliated^pty") 

•yAffiliatedPtyl $=uidoc.FieldGetTextCaffiliated j)ty_1 ") 

, yAffiliatedRy2$=uidoc.FieldGetText^affi!iated_pty - .2 ,, ) 

, yAffiliatedPty3$=uidoc.FieldGetTextCaffiliated_pty_3 w ) 

, yAffiliatedPty4$=uidoc.FieldGetText( n affiliated_pty_4^ 

yAffiliatedAtty$=uidoc.FieldGetTextCaffj)ty_counsen 

VAffiliatedAttyl $=uidoc.FieldGetTexlfafLpty_counseL1 ") 

, yAffi!iatedAtty2$=uidoc.FieldGetTexl( ,, afLpty_counseL2 , 0 

, yAffiliatedAtty3$=uidoc.FieIdGetText( ,, afLpty_counsel_3 , 0 

VAffiliatedAtty4$=uidocPieldGetTextCaffj)ty_counseL4") 

yComments$=uidoc.FieldGetTextCcomments w ) 

yPType$=uidoc.FieldGetText("typejroject M ) 

End If 

'Litigation 

If Subform$= M Lrtigation" Then 

yStyle$=uidoc.FieldGetTextCcase_style") 

yLltType$=uidoc.FieldGetTextf , lit_type w ) 

yActionNo$=uidoc.FieldGetTextC , civiLaction_no w ) 

yJudge$=uidoc.FietdGetText("judge") 

yACouncel$=uidoaFieldGetTextC'appear_counser') . 

yOCouncel$=uidoc.FieldGetTexiCopp_counse^ , ) 

yCoCouncel$=uidoc.FieldGetTexlC , co_counsel M ) 

yCommentsSsuidocPieldGetTextfOTmments") 

End If 

•Other 

If Subform^-Other Then 

yText$=uidoc.FieldGetTextnext_other) 
End If 

'ProsCopyright 

If Subfbrm$="ProsCopyrighf Then 

yCSeria^uidocPieldGetTextC'seriaLnumber*') 

yCAppType$=uidoc.FieldGetText("app_type w ) 

yCRSerial$=uidocPieldGetText( w related_sn n ) 

yCRMatter$=uidoc.FieldGetTextC , related_matters") 

yAutho^uidoc.FieldGetTexlfauthor^cw") 

yApCouncel$=uidoc.FieldGetText("appearance_counsel") 

yOwner$=uidoc.FieldGetTextfowner_cw") 

yTransfer$=uidoc.ReldGetText( n transfer_cw w ) 

End If 

•ProsTM . 

If Subfbrm^'ProsTWr Then 

yTMSerial$=uidoc.FieldGetText("serial_number") 

VTMAppType$=uidoc.FieldGetTexl("tni_apP_type n ) 

yTMRApp$=uidoc.FieldGetText( w related_apps") 

yTMRMatter$=uldoc.FieldGetText( ,, related_matter_no w ) 

yTM$=uidoc.FieldGetText( ,, tm w ) 

yMark$=uidoc.FieldGetText("mark") 

yGoods$=uidocPieldGetTextfgoods_serv") 

yClass$=uidoc.FieldGetTextC'classes w ) 

yTMOwner$=uidocPieldGetText("owner") 

yTMPofa$=uidocPieIdGetText("pofa_fa") 

yFirUse$=uidoc.FieldGetTextnirst_.use") 



ylSUse$=uidoc.Fie!dGetTextCLstate_use") 
yFilDte$=uidoc.FieldGetTextrfiling_date") 
yTerm$=uidoc.FieldGetText("termination") 
yTDate$=uidocPieldGetText("term_date") 

yHTerm$=uidocPieldGetText("howJerrTO 

yRewnl$=uidoc.FieldGetText( n renewan 
End If 
'ProsPatent 

If Subform$="ProsPatent" Then 

yClientBill$=uidoaFieldGetTexlfclients_billing n ) 

yPlnventor$=uidocPieldGetText( M inventor") 

yPSeria^uidocPieldGetTextfseriaLnumber") 

yPApType$=uidocPieldGetText("app_type") 

yPRAppType$=uidocPieldGetText("related_apps") 

yPRMatter$=uidoc.ReldGetTextrre!ated matterjio") 

yPPofaS^uidocPieldGetTextfpofaJa") "~ 

yPFileDate$=uidocPieldGetTextC'filing_date") 

yPTermDate$=uidoc.FieldGetText( tt term_date M ) 

yWhyTerm$=uidoc.FieldGetTexlOA/hyJerm w ) 

yPMaint$=uidocPieldGetText("maint") 

yPPOA$=uidoc.FieldGetText("PoA") 
End If 

'Declare some other variables 
yhist$=uidoc.ReIdGetText("History") 

NewHist$ = ^Modified on " + Date$+" "+Time$ + " by • + Session.CommonUserName 
update$="N" 

'Set the PrppClose field so we can close the document 
Call uidoc.FieldSetTextCPropClose", "Closed") 
'Check the form fields to see if they have changed 
If xCountry$ <> yCountry$ Then 

NewHist$ = NewHist$ &Chr(010) + "Country changed to: " + yCountry$ + " from n +. 

xCountry$ 

update$="Y" 
End If 

If xAssociate$ o yAssociate$ Then 

NewHistS = NewHist$ &Chr(010) + "Associate changed to: "+ yAssociate$ + ■ from ■ + 

xAssociate$ 

update$="Y" 
End If 

If xAssAdd$ <> yAssAdd$ Then 

NewHist$ = NewHistS &Chr(010) + "Associate Address changed to: "+ yAssAdd$ + " 

from" + xAssAdd$ 

update$="Y" 
End If 

IfxAttyS <>yAtty$ Then 

NewHist$= NewHist$ &Chr(010) + "Responsible Attorney changed to: "+ yAtty$ + ■ 

from " + xAtty$ 

update$="Y" 
End If 

If xPDescrip$oyPDescrip$ Then 

NewHist$=NewHist$ &Chr(010) + "Project Description was changed." 

update$="Y" 
End If 

If xProj$<>yProj$ Then ... 
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NewHist$=NewHist$ &Chr(010) + "Project Name was changed to:"+ yProj$ + " from " + 

xProj$ 

update$="Y" 
End If 

If xPComments$<>yPCommerits$ Then 

NewHist$=NewHist$ &Chr(010) + "Project Comments were changed." 

update$="Y" 
End If 

'Check the subforms to see if they have changed 
'C&A 

If SubForm$="C&A" Then 

If xAffiliatedPtyS <> yAffiliatedPty$ Then 

NewHist$= NewHistS &Chr(010) + "Affiliated Party changed to: "+ yAffiliatedPtyS + " 

from " + xAffiliatedPty$ 

update$="Y" 
End If 

•If xAffiliatedRyl $ <> yAffiliatedPtyl $ Then 
'NewHist$= NewHistS &Chr(010) + "Additional Affiliated Party 2 changed to: "+ 

yAffiliatedPty 1 $ + " from " + 
xAffiliatedPty1$ 

'update$= w V 
'End If 

If xAffiliatedPty2$ <> yAffiliatedPty2$ Then 
'NewHist$= NewHist$ &Chr(010) + "Additional Affiliated Party 3 changed to: "+ 

yAffiliatedPty2$ + " from " + 
xAffiliatedPty2$ 

'updateS-V 
'End If 

'If xAffiliatedPty3$ <> yAffiliatedRy3$ Then 

'NewHist$= NewHist$ &Chr(01 0) + "Additional Affiliated Party 4 changed to: "+ 

yAffiliatedPty3$ + " from " + 
xAffiliatedPty3$ 

'update$="Y" 
'End If 

'If xAffiliatedPty4$ <> yAffiliatedRy4$ Then 

•NewHist$= NewHistS &Chr(010) + "Additional Affiliated Party 5 changed to: "+ 

yAffiliatedPty4$ + " from " + 
xAffiliatedPty4$ 

'update$='Y" 
•End If 

If xAffiliatedAttyS <> yAffiliatedAttyS Then 

NewHist$= NewHistS &Chr(010) + "Affiliated Party Counsel changed to: "+ 

yAffiliatedAttyS + " from " + 
xAffiliatedAttyS 

update$="Y" 
End If 

'If xAffiliatedAttylS o yAffiliatedAtty1$ Then 

'NewHist$= NewHistS &Chr(010) + "Affiliated Party Attorney 2 changed to: "+ 

yAffiliatedAtty 1 $ + " from n + 
xAffiliatedAttylS 

•update$="Y" 
'End If 

'If xAffiliatedAtty2$ <> yAffiliatedAtty2$ Then 

'NewHist$= NewHistS &Chr(010) + "Affiliated Party Attorney 3 changed. to: "+ . . 
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yAffiliatedAtty2$ + M from " + 
xAffiliatedAtty2$ 

•update$="Y" 
•End If 

'If xAffiliatedAtty3$ <> yAffiliatedAtty3$ Then 

'NewHistS^ NewHistS &Chr(010) + "Affiliated Party Attorney 4 changed to: "+ 

yAffiliatedAtty3$ + " from " + 
xAffiliatedAtty3$ 

•update$= ,n r 
'End If 

'If xAffiliatedAtty4$ <> yAffiliatedAtty4$ Then 

•NewHist$= NewHist$ &Chr(010) + "Affiliated Party Attorney 5 changed to: "+ 

yA(filiatedAtty4$ + " from " + 
xAffillatedAtty4$ 

•update$="Y" 
•End If 

If xPType$ <> yPTypeS Then 

NewHist$= NewHistS &Chr(010) + "Type of Project changed to: "+ yPType$ + " 

from " + xPType$ 

update$="Y" 
End If 

If xComments$<>yComments$ Then 

NewHist$=NewHist$ &Chr(01 0) + "Comments added or changed." 
update$="Y" 
End If 
End If •C&ASubform 
•Litigation 

If SubForm$="Litigation" Then 
If xStyle$ <> yStyle$ Then 

NewHist$= NewHistS &Chr(010) + "Case Style changed to: "+ yStyle$ + " from " + 

xStyle$ 

update$="Y" 
End If 

If xLitType$ <> yLltType$ Then 

NewHist$= NewHist$ &Chr(010) + "Type changed to: "+ yUType$ + " from " + 

xLitType$ 

update$= ,r Y" 
End If 

If xActionNo$ <> yActionNo$ Then 

NewHist$= NewHistS &Chr(010) + "Civil Action Number changed to: M + yActionNo$ 

+ " from " + xActionNo$ 

update$="Y T ' 
End If 

If xJudge$ <> yJudge$ Then 

NewHist$= NewHistS &Chr(()10) + "Judge changed to: "+ yJudgeS + " from B + 

xJudgeS 

update$="Y" 
End If 

If xACounselS o yACounsel$ Then 

NewHist$= NewHistS &Chr(010) + "Appearance of Counsel changed to: "+ 

yACounselS + " from " + 
xACounselS 

update$="Y" 
End If 



If xOCounsel$ <> yOCounsel$ Then 

NewHist$= NewHist$ &Chr(010) + "Opposing Party changed to: "+ yOCounsel$ + " 

from " + xOCounsel$ 

update$="Y' 
End If 

If xCoCounsel$ <> yCoCounsel$ Then 

NewHist$= NewHist$ &Chr(010) + "Counsel for Opposing Party changed to: "+ 

yCoCounsel$ + " from " + 
xACoCounseI$ 

update$="Y" 
End If 

If xComments$ <> yComments$ Then 

NewHist$= NewHist$ &Chr(010) + "Comments changed " 
update$='V 
End If 
End If "Litigation 
•Other 

lfSubform$= M Other tt Then 
If xTexl$ <> yText$ Then 

NewHist$= NewHist$ &Chr(010) + "Event changed to: "+ yText$ + " from " + xTexl$ 
update$="Y" 
End If 
End If •Other 
Pros Copyright 

if Subform$="ProsCopyright" Then 
If xSerial$ o ySerial$ Then 

NewHist$= NewHist$ &Chr(010) + "Serial Number changed to: "+ ySerial$ + n from " 

+ xSerial$ 

update$="Y" 
End If 

If xCAppType$ o yCAppType$ Then 

NewHist$= NewHist$ &Chr(010) + "Type of Application changed to: w + yCAppType$ 

+ B from w + xCAppType$ 

update$="Y" 
End If 

If xCRSerial$ o yCRSerial$ Then 

NewHist$= NewHist$ &Chr(010) + "Related Application(s) changed to: "+ 

yCRSerial$+ M from " + 
xCRSerial$ 

update$="Y" 
End If 

If xCRMatter$ <> yCRMatter$Then 

NewHist$= NewHist$ &Chr(010) + "Related Matter Numbers changed to: "+ 

yCRMatter$ + " from " + 
xCRMatter$ 

update$="Y" 
End If 

If xAuthor$ <> yAuthor$ Then 

NewHist$= NewHistS &Chr(010) + "Author changed to: "+ yAuthor$ + • from " + 

xAuthor$ 

update$="Y" 
End If 

If xApCounsel$ <> yApCounsel$ Then 

NewHist$= NewHistS &Chr(010) + "Appearance of Counsel changed to: "+ 



84 



yApCounsel$ + " from " + 
xApCounsel$ 

update$='V 
End If 

If xOwner$ <> yOwner$ Then 

NewHist$= NewHist$ &Chr(010) + "Owner changed to: "+ yOwner$ + " from " + 
\ xOwner$ 

update$="Y" 
End If 

If xTransfer$ <> yTransfer$ Then 

NewHist$= NewHist$ &Chr(010) + Transfer changed to: "+ yTransfer$ + n from " + 

xTransfer$ 

update$="Y" 
End If 
End If Pros Copyright 
Pros TM 

If SubForm$="ProsTM n Then 

If xTMSerial$ <> yTMSerial$ Then 

NewHist$= NewHist$ &Chr(010) + "Serial Number changed to: "+ yTMSerial$ + " 

from ■ + xTMSerial$ 

update$="Y" 
End If 

If xTMAppType$ o yTMAppTy pe$ Then 

NewHist$= NewHist$ &Chr(010) + "Type of Application changed to: "+ 

yTMAppType$ + " from " + 
xTMAppType$ 

update$="Y" 
End If 

If xTMRApp$ <> yTMRApp$ Then 

NewHist$= NewHist$ &Chr(010) + "Related Applications changed to: "+ yTMRApp$ 

+ " from " + xTMRApp$ 

update$= w Y w 
End If 

If xTMRMatters$ <> yTMRMatters$ Then 

NewHist$= NewHist$ &Chr(010) + "Related Matters changed to: "+ yTMRMatters$ 

+ " from n + xTMRMatters$ 

update$="Y w 
End If 

lfxTM$<>yTM$Then 

NewHist$= NewHist$ &Chr(010) + "Trademark Name changed to: "+ yTM$ + " from 

" + xTM$ 

updateS-'V 
End If 

If xMark$ <> yMark$ Then 

NewHist$= NewHist$ &Chr(010) + "Mark changed to: "+ yMark$ + " from " + xMark$ 

update$="Y" 
End If 

If xGoods$ <> yGoods$ Then 

NewHist$= NewHist$ &Chr(010) + "Goods/Services changed to: "+ yGoods$ + " 

from " + xGoods$ 

update$="Y" 
End If 

If xClass$ <> yClass$ Then 

NewHist$= NewHist$ &Chr(010) + "Classes changed to: "+ yClass$ + w from " ■+• 
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xClass$ 

update$="Y" 
End If 

If xTMOwner$ <> yTMOwner$ Then 

NewHist$= NewHist$ &Chr(010) + "Owner changed to: "+ yTMOwner$ + " from " + 

xTMOwner$ 

update$="Y" 
End If 

If xTMPofa$ <> yTMPofa$ Then 

NewHist$= NewHist$ &Chr(010) + "Classes (POFA/FA) changed to: "+ yTMPofa$+ 

"from" + xTMPofa$ 

update$="Y" 
End If 

If xFirUse$ <> yFirtlse$ Then 

NewHist$= NewHist$ &Chr(010) + "First Use Date changed to: "+ yFirtlse$ + " from 

" + xFirUse$ 

update$="Y" 
End If 

If xlSUse$ <> ylSUse$ Then 

NewHist$= NewHist$ &Chr(010) + "First Interstate Use Date changed to: "+ 

ylSUse$ + " from " + xlSUse$ 

update$="Y" 
End If 

If xFilDte$ <> yRIDte$ Then 

NewHist$= NewHist$ &Chr(010) + "Filing Date changed to: "+ yRIDte$ + ■ from " + 

xFilDte$ 

update$="Y" 
End If 

If xTerm$ <> yTerm$ Then 

NewHist$= NewHist$ &Chr(010) + "Termination changed to: "+ yTerm$ + " from " + 

xTerm$ 

update$="Y" 
End If 

If xTDate$ <> yTDate$ Then 

NewHist$= NewHist$ &Chr(010) + "Termination Date changed to: "+ yTDate$ + " 

from " + xTDate$ 

update$="Y" 
End If 

If xHTerm$ <> yHTerm$ Then 

NewHist$= NewHist$ &Chr(010) + "How Terminated changed to: "+ yHTerm$ + " 

from " + xHTerm$ 

update$="Y" 
End If 

If xRewnl$ <> yRewnl$ Then 

NewHist$= NewHist$ &Chr(010) + "Renewal changed to: "+ yRewnl$ + " from " + 

xRewnl$ 

update$="Y" 
End If 
End If 'Pros TM 
Pros Patent 

If Subform$="ProsPatent" Then 
If xClientBIII$ <> yClientBill$ Then 

NewHist$= NewHist$ &Chr(010) + "Client Own Billing Number changed to: "+ 

yClientBill$ + "from" + 
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xClientBiII$ 

update$="V 
End If 

If xPlnventor$ <> yPlnventor$ Then 

NewHist$= NewHist$ &Chr(010) + "Inventor changed to: "+ yPlnventor$ + " from " + 

xPlnventor$ 

update$="Y" 
End If 

If xPSerial$ <> yPSerial$ Then 

NewHist$= NewHist$ &Chr(010) + "Serial Number changed to: "+ yPSerial$ + B 

from " + xPSerial$ 

update$="Y" 
End If 

If xPApType$ <> yPApType$ Then 

NewHist$= NewHist$ &Chr(010) + Type of Application changed to: "+ yPApType$ 

+ " from + xPApType$ 

update$="Y" 
End If 

If xPRAppType$ <> yPRAppType$ Then 

NewHist$== NewHist$ &Chr(010) + "Related Applications(s) changed to: "+ 

yPRAppType$ + " from " + 
xPRAppType$ 

update$="Y" 
End If 

If xPRMatter$ <> yPRMatter$ Then 

NewHist$= NewHist$ &Chr(010) + "Related Matter(s) changed to: "+ yPRMatter$ + 

" from " "+ xPRMatter$ 

update^'V 
End If 

If xPPofa$ o yPPofa$ Then 

NewHist$= NewHist$ &Chr(010) + "Classes (POFA, F/A) changed to: "+ yPPofa$ + 

n from" + xPPofa$ 

update$^"Y" 
End If 

If xPFileDate$ <> yPFileDate$ Then 

NewHist$= NewHist$ &Chr(010) + "Filing Date changed to: "+ yPFileDate$ + ■ from 

" + xPFileDate$ 

update$="Y" 
End If 

If xPTermDate$ <> yPTermDateS Then 

NewHist$= NewHist$ &Chr(010) + Termination Date changed to: "+ yPTermDate$ 

+ H from " + xPTermDate$ 

update$="Y" 
End If 

If xWhyTerm$ <> yWhyTerm$ Then 

NewHist$= NewHist$ &Chr(010) + Termination Reason changed to: "+ yWhyTerm$ 

+ " from " + xWhyTerm$ 

update$="Y" 
End If 

If xPMaint$ <> yPMaint$ Then . 

NewHist$= NewHist$ &Chr(010) + "Maintenance changed to: "+ yPMaint$ + n from 

" + xPMaint$ 

update^ 1 "*" 
End If 
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If xPPOA$ <> yPPOA$ Then 

NewHist$= NewHist$ &Chr(010) + "Power of Attorney changed to: "+ yPPOA$ + " 

from " + xPPOA$ 

update$="Y" 
End if 
End If 'Pros Patent 

'If the fields have changed, append the changes to the history and set the document 

status to modified 

If update$="Y" Then 
If uidoc.lsNewDoc Then 

Call uidoaHe!dSetText("Status_1", "New") 

Call uidocFieldSetText ("History", "Document Created: " + Date$+" "+Time$ + " 

by" + 

Session.CommonUserName 
&Chr(010)) 

Else 

Call uidoc.FieldSetText("Status_1 "."Modified") 

Call uidocFieldSetText ("History", NewHist$ &Chr(010) +" — 



&Chr(010) + yhist$) 

End If 
End If 

•Save and close the document 
Call uidoc.Save 
'Run Sub to update children 
If Not uidoclsNewDoc Then 

Call SetFields(uidoc.document) 
End If 

Call uidoc.Close 
End Sub 

Sub ProcessProjects 

Set pdoc=db.GetDocumentByUNID(uidoc.FieldGetTextCMatterDoclD")) 

Set doc = uidoc.document 

Set cltem=doc.GetFirstltemCProjectCountry") 

FirstCountry$=citem.values(0) 

For x = 1 To Ubound (cltem.values) 

countrynameS = cltem.values(x) 

Set newdoc=db.CreateDocument 

newdoc.Form="Project" 

newdoc.cre_date=Now 

newdocPDescrip=uidoc.FieldGetText("PDescrip") 

newdoc.ProjectCountry= countryname$ 

newdoc.ClientDoclD=uidoc.FieIdGetTextCCIientDoclD ,, ) 

newdoc.MatterDoclD^idoc.FieldGetTextfMatterDocID") 

newdoc.SubType=uidoc.FieldGetText("SubType") 

newdoc.PropClose="yes" 

newdoc.clients_biHing=uidoc.FieldGetText("clients_billing , ') 
newdoc.inventor=uidoc.FieldGetText("inventor") 
'Set the history section 
newdoc.Statusjl ="New" 

newdoc.History="Document Created: " + Date$+" "+Time$ + " by " + 

Session.CommonUserName 
&Chr(010) 
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'Make the doc a response to the matter doc, save it and update the computed fields 
Call newdoc.MakeResponse(pdoc) 
newdoc.save True, True 
newdoc.ComputeWithForm False, False 
newdoc.save True, True 

'Run Sub to update children maybe not needed because is new doc 
•Call SetFields(newdoc) 
Next x 

'be sure the original project doc is adjusted for only the first country 

Call uidocFieldSetTextCProjectCountry", FirstCountryS) 
End Sub 
Sub Initialize 

Set workspace = New NotesUlWorkspace 

Set Session = New NotesSession 

Set db=session.CurrentDatabase 

Set uidoc = workspace.CurrentDocument 
End Sub 

Name: 

Last Modification: 
Comment: 
Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: . . . 



Routing 

03/22/1999 09:17:05 AM 

[Not Assigned] 

Document 

No 

Yes 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 

FirstLast 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

No 

NewClient_Routing 

Names 

New Line 

New Line 

[Not Assigned] 

Editable 
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Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
input Translation Formula: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 



No 

Disabled 
No 

@Name([CN]; 

NewClient_Routing); 

No 

NewMatter_Routing 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Name([CN]; 

NewMatter_Routing); 

No 

NewProj_Routing 

Names 

New Line 

New Line 

[Not Assigned] 

Editable 

No 

Disabled 
No 

@Name([CN]; 

NewProj_Routing); 
No 

Patent_Routing 

Names 

New Line 

New Line 

[Not Assigned] . 

Editable 

No 

Disabled 
No 

@Name([CN]; Patent_Routing); 
No 

TM_Routing 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Name([CN]; TM_Routing); 
No 

Cpy_Routing 

Names 
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Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
. Input Translation Formula: 

Is Scripted: 



New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Name([CN]; Cpy_Routing); 
No 

DLit_Routing 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Name([CN]; DLitJRouting); 
No 

CAJRouting 
Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Name([CN]; CA_Routing); 
No 

Oth_Routing 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Name([CN]; Oth_Routing); 
No 

Patent_Routing_1 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Name([CN]; 
Patent_Routingjl); 
No r 
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Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 

input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multn Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: . 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 



TM_Routingjl 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Narne([CN]; TM_Routing_1); 
No 

Cpy_Routing_1 

Names 

New Line 

New Line 

[Not Assigned] 

Editable 

No 

Disabled 
No 

@Name([CN]; CpyJRouting 1); 
No 

DLit_Routing_1 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Name([CN]; DlitJRouting 1); 
No 

CA_Routingjl 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Name([CN]; CAJRoutingJ); 
No 

Oth_Routing_1 

Names 

New Line 

New Line 

[Not Assigned] 

Editable 

No 

Disabled 
No 

@Name([CN]; Oth_Routing_1); 
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Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi- Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi- Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Input Translation Formula: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator. 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Input Translation Formula: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 



No 

DocketMgr 

Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Standard 

No 

No 

Disabled 
No 

@Name([CN]; DocketMgr); 
No 

ProAtty 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

ProsRoutePatCpyl 

Names 

Comma 

Comma 

[Not Assigned] 

Editable 

No 

Disabled 
No 

DocketMgr 
@Name([CN]; 
ProsRoutePatCpyl); 
No 

ProsRoutePatCpy3 

Names 

Comma 

Comma 

[Not Assigned] 

Editable 

No 

Disabled 
No 

"Patrick J. Coyne" 
@Name([CN]; 
ProsRoutePatCpy3); 
No 

ProsRoutePatCpy4 

Names 

Comma 

Comma 



Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Input Translation Formula: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Input Translation Formula: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 



[Not Assigned] 

Editable 

No 

Disabled 
No 

@Name([CN]; 

ProsRoutePatCpy4); 

No 

ProsRouteTMCpyl 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

DocketMgr 
@Name([CN]; 
ProsRouteTMCpyl ); 
No 

ProsRouteTMCpy3 

Names 

Comma 

Comma 

[Not Assigned] 

Editable 

No 

Disabled 
No 

"Patrick J. Coyne" 
@Name([CN]; 
ProsRouteTMCpy3); 
No 

ProsRouteTMCpy4 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Name([CN]; 

ProsRouteTMCpy4); 

No 

ProsRouteTMCpyS 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 



Update Requires Editor Access: 
Input Translation Formula: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Input Translation Formula: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator. 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Input Translation Formula: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 

Is Scripted: 
Action: 
Formula: 



Action: 
Formula: 



JavaScript & HTML Code: 

(None] 



No 

@Name([CN]; 

ProsRouteTMCpyS); 

No 

ProsRouteCRCpyl 

Names 

Comma 

Comma 

[Not Assigned] 

Editable 

No 

Disabled 
No 

DocketMgr 
@Name([CN]; 
ProsRouteCRCpyl); 
No 

ProsRouteCRCpy3 

Names 

Comma 

Comma 

[Not Assigned] 

Editable 

No 

Disabled 
No 

"Patrick J. Coyne" 
@Name([CN]; 
ProsRouteCRCpy3); 
No 

ProsRouteCRCpy4 

Names 

Comma 

Comma 

[Not Assigned] 

Editable 

No 

Disabled 
No 

@Name([CN]; 

ProsRouteCRCpy4); 

No 

Close 

@Command([FileClose 
Window]); 
Save & Close 

@Command([FileSave]) 
;@Command([FileCloseWindow 

D; , 
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LotusScript Code: 
(Globals) 

Option Public 

Use "SortingLibrary" 

Name: 

Alias: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Enciyptidri Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 
Help Description- 
Field Type: 

Sigh When Mailing/In: Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 



Routing Slip - Litigation 
LitRout 

03/18/1999 02:21:45 PM 

[Not Assigned] 

Response to Response 

No 

No 

No 

Yes 

No 

No 

Yes 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 

Tempfld 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No . 
No- 

route_type 
Text ~ 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

ClientNameNum 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

MatterNameNum 
Text 

[Not Assigned] 
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Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/in Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 



Editable 
No 

Disabled 

No 

No 

lit_rout_re 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

document 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

route_authoii 
Text " 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

cre_date1 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
No 
a 

Text 

[Not Assigned] 

Computed 

No 

Disabled 

No 
nit 

No 

IHMroutel to 
Text 

New Line, Blank Line 

Blank Line 

[Not Assigned] 

Editable 

No 

Disabled 



Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator. 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Action: 
Formula: 



Action: 
Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 

Alias: 

Last Modification: 

Comment: 

Type: 



No 
No 
b 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

nn 

No 

lit_route_to 
Text 

New Line, Blank Line 

Blank Line 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Print Routing Sheets 

result := 

@Prompt([OKCANCELEDIT]; 
"Print Routing Sheets"; "I am 
about to print the routing sheets 
for this Event. Please specify 
the number of copies, the 
default is 2. M ; "2"; "I" : T2" : "3" : 
"4 n : "5" : ^©Iffresult != ""; 
@Command([FilePrint]; result; 

nn. nn. nn. im. nn. nw. nnv p 
tttttt/** 

@Command([FileCloseWindow] 

); 

@PostedCommand([FileClose 

Window]));@PostedCommand([ 

FileCloseWindowD; 

Close 

@Command([FileClose 
Window]);@PostedCommand([ 
FileCloseWindow]); 



Routing Slip - 
ProsecutionCR 

ProsRoutCR 
04/20/1999 02:06:17 PM 
[Not Assigned] 
Document 
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vvinaow i me rormuia. 


<§>!f(@lsNewDoc; "Prosecution 




Routing Slip"; route Jype + " " + 




ref); 


inciuue in L^ompose Menu. 


No 


mciuoe in vjuery oy ronrn. 


No 


ueiauji uaiaDase rorm. 


Mo 


Auiomaucaiiy Ketresn rieids. 


Yes 


Man (New Documents wnen saving. 


Mo 


oiuic roiin in uocumenis. 


No 


Inherit Default Field Values: 


Yes 


Updates Become Responses: 


No 


Rpfain Prinr \/pr^inn<^ Ac Ppcnnncoc 


Kin 
NO 


A r>f!\/oto OhlOf*tc VA/han Pnmnncinn ■ 

Muuvdic vjujcuid vvntsn womposiny. 


NO 


nuUVdlC V^UJwLrlo VVIlCll CUIlllig. 


NO 


Activate Objects Whpn Rparlinrr 


IYO 


nnrtnmpnt Fnnn/ntinn Kauc 


[iMOJie Assigned j 


wUf (ipUocU UUtufi IcillS May Du Kcdu Dy. 


Aug |^^__ 

An Users 


lOlfll May Dc ls0iTip05€Q Dy. 


AH Users 


jucomponents. 




rieia: 


REF1 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Computed 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Formula: 


@Text($Ref); 


Is Scripted: 


No 


Field: 


route_type 


Datatype: 


Text " 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scnpted: 


No 


Mela: 


ClientNameNum 


uatatype. 


Text 


rieip uescnption. 


[Not Assigned] 


i iciu i ype. 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


is ocnpieo. 


No 


rieiu. 


MatterNameNum 


Datatype: 


1 CAl 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


pros_rout_re 
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Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field. Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailirig/Iri Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Mufti- Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Maiiing/ln Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description- 



Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Cre_date1 

TexF 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

route_authoii 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
No 
a . 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

No 

PRoutejl 

Text 

New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 
No 
b 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

tin 

No 

PRoute_2 

Text 

[Not- Assigned] 
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Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Maifing/ln Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Maifing/ln Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Action: 
Formula: 



Editable 
No 

Disabled 
No 
No 
c 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

tlH 

No 
c_1 

Text 

[Not Assigned) 

Computed 

No 

Disabled 
No 

nn 

No 

PRoute_3 

Text 

New Line, Blank Line 

Blank Line 

[Not Assigned] 

Editable 

No 

Disabled 
No 
No 
d 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

nn 

No 

PRoute_4 

Text 

New Line, Blank Line 

Blank Line 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Print Routing Sheets 
result := 



Action: 
Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 

Alias: 

Last Modification: 

Comment: 

Type: 

Window Title Formula: 



Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 



@Prompt([OKCANCELEDIT];. 
"Manual Routing"; "I am about 
to print the routing sheets for 
this Event/Task, Please specify 
the number of copies, the 
default is 4."; "4"; T' : "2" : "3" : 

"8");@lf(result != ,m ; 
@Command([FilePrint]; result; 

tin. wnt. un. tin. tin. nn. urn a 

@Command([FileCloseWindow] 

); 

@PostedCommand([FileClose 

W!ndow]));@PostedCommand([ 

FileCloseWindow]); 

Close 

FIELD SaveOptions := 

"0";@Command([FileCloseWind 

owl); 



Routing Slip - 
Prosecution Pat 

ProsRoutPat 
04/20/1999 02:06:18 PM 
[Not Assigned] 
Document 

@lf(@lsNewDoc; "Prosecution 

Routing Slip"; route Jtype + " " + 

ref); 

No 

No 

No 

Yes 

No 

No 

Yes 

No 

No 

No 

No 

No 

[None Assigned] 
AH Users 
All Users 

REF1 

Text 

[Not Assigned] 
Computed 
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Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Held Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 



No 

Disabled 
No 

@Text($Ref); 
No 

route_type 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

ClientNameNum 
Text 

[Not Assigned] 
Editable . 
No 

Disabled 

No 

No 

MatterNameNum 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

pros_rout_re 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Cre_date1 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

route_authorl 
Text " 

[Not Assigned] 

Editable 

No 

Disabled 
No 
No 
a 



Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: - 



Text 

[Not Assigned) 

Computed 

No 

Disabled 

No 

mi 

No 

PRoutejl 
Text 

New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 
No 
b 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

nn 

No 

PRoute_2 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
No 
c 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

nn 

No 
c_1 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

nn 

No 

PRoute_3 



Datatype: 

Input Multi-Value Separators): 
Display^Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/in Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Action: 
Formula: 



Action: 
Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None]. 



Text 

New Line, Blank Line 

Blank Line 

[Not Assigned] 

Editable 

No 

Disabled 
No 
No 
d 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

mi 

No 

PRoute_4 

Text 

New Line, Blank Line 

Blank Line 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Print Routing Sheets 

result := 

@Prompt([OKCANCELEDITJ; 
"Manual Routing"; "I am about 
to print the routing sheets for 
this Event/Task. Please specify 
the number of copies, the 
default is 4."; "4 H ; "1" : M 2 n : "3" : 
W 4 I * * "5" * "6" * "7 n * 
"8");@lf(result != ""; 
@Comrtiand([FilePrintJ; result; 

tin. mt. int. int. nn. tin. itirv o 

• i t i i . ; « 
©Command ([FileCloseWindow] 

); 

@PostedCommand([FileClose 

Windpw]));@PostedCommand([ 

FileCloseWindowD; 

Close 

FIELD SaveOptions := 

"0 B ;@Command([FileCloseWind 

ow]); 
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Name: 

Alias: 

Last Modification: 

Comment: 

Type: 

Window Title Formula: 



Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 



Routing Slip - 
ProsecutionTM 

ProsRoutTM 
04/20/1999 02:06:18 PM 
[Not Assigned] 
Document 

@lf(@lsNewDoc; "Prosecution 

Routing Slip": route Jype + " " + 

ref); 

No 

No 

No 

Yes 

No 

No 

Yes 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 

REF1 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@Text($Ref); 
No 

route_type 
Text " 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

ClientNameNum 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

MatterNameNum 
Text 
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Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 



[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

pros_rout_re 
Text" ~ . 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Cre_date1 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

route_author1 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
No 
a 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

nn 

No 

PRoute_1 
Text 

New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 
No 
b 

Text 

[Not Assigned] 

Computed 

No 



Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 



Disabled 
No 

Nil 

No 

PRoute_2 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
No 
c 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

Hit 

No 
c_1 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

on 

No 

PRoute_3 

Text 

New Line, Blank Line 

Blank Line 

[Not Assigned] 

Editable 

No 

Disabled 
No 
No 
d 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

tm 

No 

PRoute_4 

Text 

New Line, Blank Line 
Blank Line 
[Not Assigned] 



Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Action: 
Formula: 



Action: 

Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 

Last Modification: 
Comment: 



Editable 
No 

Disabled 
No 
No 
e 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

Hit 

No 

PRoute_5 
Text 

New Line, Blank Line 

Blank Line 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Print Routing Sheets 

result := 

@Prompt([OKCANCELEDIT]; 
"Manual Routing"; "I am about 
to print the routing sheets for 
this Event/Task. Please specify 
the number of copies, the 
default is 4."; "4"; w 1" :"2":"3": 

"8");@lf(result != 
@Command([FilePrintJ; result; 

im. nn. nit. mi. mm. mm. mnv a 

@Command([FiIeCloseWindow] 

); 

@PostedCommand([RleClose 

Window]));@PostedCommand([ 

FileCloseWindow]); 

Close 

FIELD SaveOptions := 

n O";@Command([FileCloseWind 

ow]); 



Task 

07/28/1999 10:03:32 AM 
[Not Assigned] 
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Type: 

Window Title Formula: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 



Response to Response 

@lf(@lsNewDoc; "New Task"; 

Task + "-" + Task); 

No 

Yes 

No 

Yes 

No 

No 

Yes 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 

ClientDocID 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; ClientDocID; 

@GetDocField($Ref; 

"ClientDocID")); 

No 

MatterDocID 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; MatterDocID; 

@GetDocField($Ref; 

"MatterDocID")); 

No 

ProjectDocID 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; ProjectDocID; 

@GetDocField($Ref; 

"ProjectDocID")); 

No 

EventDocID 
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Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Shared Field Reference: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Mufti-Value Separator. 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; EventDocID; 

@GetDocField($Ref; 

"EventDocID")); 

No 

PropClose 
FormName 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

Task* 
No 

clients_billing 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; clients_billing; 

@GetDocField($Ref; 

"clientsjailling")); 

No 

inventor - 
Text 

Comma, Semicolon 

Semicolon 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; inventor; 
@GetDocField($Ref; 

"inventor)); 
No 

PComments 
Text 

Comma, Semicolon 

Semicolon 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; PComments; 
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Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 



@GetDocField($Ref; 

"PComments")); 

No 

CiientJMame 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

Client_Name 
No 

ClientJMo 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

CfientJMo 
No 

MatterJMame 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; MatterJMame; 

@GetDocField(MatterDoclD; 

"Matter^Name")); 

No 

Matter.No 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@If(@lsNewDoc; Matter.No; 

@GetDocField(MatterDoclD; 

"Matter_No")); 

No 

Project 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

Project 

No 

Task 

Text • 
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Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Shared Field Reference: 
Field: 

Datatype: 

Time Format: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Shared Field Reference: 
Shared Field Reference: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: . 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 



[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

cre_date 

cre_date_d 

Time 

11/03/1999 
[Not Assigned] 
Computed for display 
No 

Disabled 
No 

cre_date 
No 

TaskDate 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

PDescrip 
resp_atty 
resp_atty__1 
Text"" 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@Contains(resp_atty; T); 
@Right(resp_atty; T) + " " + 
@Left(resp_atty; V); resp_atty); 
No 

litjroute_ev 
Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Next__Action 
Keywords 
[Not Assigned] 
Editable 
Standard 
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Allow Values Not In List: 
Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Validation Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 



No 
No 

Disabled 

No 

No 

NextActionBy 
Tract 

[Not Assigned] 

Editable 

No 

Disabled 

NO 

No* 

Action_Date 
Time 

11/03/1999 
[Not Assigned] 
Ecfitable 
No 

Disabled 

No 

No 

DateComplete 
Time 

11/03/1999 05:36:18 PM 
[Not Assigned] 
Ecfitable 
No 

Disabled 

No 

No 

Priority 

Keywords 

[Not Assigned] 

Editable 

Standard 

No 

Urgent 

High 

Medium 

Low 

No 

Disabled 
No 

@lf(Priority = Select -"; 
@Failure("Please designate 
priority."); ©Success); 
No 

Status 
Text 

[Not Assigned] 

Computed 

No 

Disabled 



Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 
Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Section Title: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



No 

@lf(TEArchive = "no M | 
TEArchive = ""; "Open"; 
"Completed"); 
No 

Hours 

Number 

General 

No 

No 

No 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

trak_id 
Text 

[Not Assigned] 
Computed when composed 
No 

Disabled 
No 

©Unique 
No 

Summary 
Text 

[Not Assigned] 

Editable 

Yes 

Disabled 

No 

No 

Archive 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

n n 

No 

Untitled_Sectionjl 

Section 
Comma 

Responsible Attorney 

Certificate: 

Computed 

No 

Disabled 
No 

resp_atty 



Is Scripted: 
Shared Field Reference: 
Shared Field Reference: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
. Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Section Title: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: . 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 



No 

ProtectFromArchive 

TEDateComplete 

RA_Sig 

Text 

[Not Assigned] 
Computed 
Yes * 
Disabled 
No 

RA_Sig 
No 

Untrtled_Section2 

Section 
Comma 

IP Docket Manager Certificate: 

Computed 

No 

Disabled 
No 

"[DocketMgr]" 
No 

DocDateComplete 
Time 

11/03/1999 
[Not Assigned]. 
Editable 
No 

Disabled 

No 

No 

IPD_Sig 
Text 

[Not Assigned] 

Computed 

Yes 

Disabled 
No 

IPD_Sig 
No 

TEArchive 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
"no" 
No 

RACIosed 

Text 

[Not Assigned] 
Editable 
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Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Default Value Formula: 

Is Scripted: 
Shared Field Reference: 
Shared Field Reference: 
Action: 

Formula: 



Action: 
Formula: 



Action: 
Formula: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(Globals) 

Option Public 
%INCLUDE "Isconst.lss" 
Public xTask$ 
Public xAtty$ 
(Form) Task 

Sub Postopen(Source As Notesuidocument) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace.CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

If uidoc.EdrtMode=True Then 

Call uidoc.FieldSetTextCPropClose", "Open") 



No 

Disabled 
No 
"no" 
No 

UnHideRA 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
"no" 
No 

UnHideDM 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
"no" 
No 

Status_1 

History 

Close 

@Command([FileClose 
Window]); 
Cancel 

FIELD SaveOptions := 

"0";@Command([FileCloseWind 

ow]); 

Edit 

@Command([EditDocument]); 



117 



End If 

xTask$=uidocPieldGetText("Task") 
xAtty$=uidoc.FieldGetTexl("resp_atty") 
End Sub 

Sub Postmodechange(Source As Notesuidocument) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace.CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

If uidoc.EditMode=True Then 

Call uidoaFieldSetTextf'PropCIose", "Open") 

End If 
End Sub 

Sub Querysave(Spurce As Notesuidocument, Continue As Variant) 
Dim session As New NotesSession 
Dim db As NotesDatabase 
Set db=session.CurrentDatabase 
Dim workspace As NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
PropClose$=source.FieldGetTexl( n PropClose ff ) 
If PropClose$o"Closed" Then 

Ok%=Messagebox("You must use the Save and Close button to save your work or use 

the Cancel button to abort your 
changes! w ,0+48+0+0,"ERROR") 

lfOk%=1Then 

continue=False 
End If 
End If 
End Sub 

Sub Queryclose(Source As Notesuidocument, Continue As Variant) 
End Sub 

(Button) Close and Archive Event 
Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Define some variables 
ActionHist$=uidoc.FieldGetText( n Archive ,, ) 
OldAction$=uidoc.HeldGetText("NextJ^ction") 
Due$=uidoc.FieldGetText( M DateDue") 
Complete$=uidocPieldGetTextfDateComplete") 
TraklD$=uidoc.FieldGetTexinrakjd") 
SumS^uidocPieldGetTextfSummary") 

NewActionHist$ = "Action: " + OldAction$ &Chr(010) + 'Tracking ID: n + TraklD$ 

&Chr(010) +"Due on: w + Due$ 
&Chr(010) + "Closed on:" + 
Completes &Chr(010) + Sum$ 
&Chr(010)+ "Certified closed 
by" + 
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Session.CommonUserName 

•Append the closed action to the Archive 
lfOldAction$= ,w Then 

Ok%=Messagebox("There is no Action to close!" t 0+48+0+0,"ERROR") 

lfOk%=1 Then 

. Exit Sub 

End If 
End If 

lfComplete$=""Then 

Ok%= MessageboxfYou must specify a completion date! H ,0+48+0+0, "ERROR") 

If Ok%=1 Then 
Exit Sub 

End If 
End If 

lfSum$=""Then 

Ok%=Messageboxf "You must provide a summary of action 

taken!",0+48+0+0,"ERROR") 

lfOk%=1Then 

Exit Sub 
End If 
End If 

'Certify that the action should be closed 

YesOrNo%-Messagebox("l " +Session.CommonUserName+ " certify that this subtask 

action is closed." ,4+32+0+0, 
"Action Review Certrftcation ,, ) 

lfYesOrNo%=6Then 

Call uidoc.FieldSetText fArchive", NewActionHist$ &Chr(010) +" 



&Chr(010)+ActionHist$) 

■ Clear the subform for a new entry 

Call uidoc.FieldSetTextrNext_Action";"') 

Call uidoc.FieWSetText("DateDue" f "") 

Call uidoc.FieldSetTextCPriority" t m } 

Call uidoc.FieldSetText("Hours" ( n ") 

Call uidocPieldSetText("NextActionBy","") 

Call uidoc.FieldSetTextfDateComplete","") 

Call uidocPieldSetText("Status","On Going") 

Call uidocPieldSetTextHrakjdY") 

Call uidoc.FieldSetTextC'Summary","") 
End If 
End Sub 
(Button) Close This Task 
Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocumeht 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim doc2 As NotesDocument 
Dim maiidoc As NotesDocument 
Dim view As NotesView 
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Dim YesOrNo As Integer 
Dim OkCancel As Integer 

YesOrNo=Msgbox("Are you sure you want to close this Task?", MB_YESNO + 

MBICONQUESTION + 
MB_DEFBUTTON2 + 
MB.APPLMODEL, "Close 
Task?") 

If yesOrNo=IDNO Then 

Exit Sub 
End If 

'Unhide the closure info 

Call uidoaFieldSetTextfUnHideRA", "yes") 

Call uidoc.FieldSetText("RA_Sig", session.CommonUserName) 

Call uidoc.RefireshHideFormulas 

Call uidoc.Refiresh 

'Get some data from the base document and set the variables 

yAtty$=uidoc.FieIdGetText("resp_atty") 

Project$=uidoc.FieldGetTextCProject") 

Client$=uidocPieldGetTextCCIientjslame'^ 

ClientNo$=uidoc.FieldGetTextC , ClienLNo") 

Matter$=uidoc.FieldGetTextCMatter_Name") 

MatterNo$=uidoc.ReldGetTextCMatter_No") 

TaskName$=uidoc.FieldGetTextfTaskl 

People$=uidoc.FieldGetTextOtt_route_ev") 

Sig$=uidoc.FieldGetText("RA_Sig") 

EDate=uidocPieldGetText( w TEDateComplete' , ) 

Ref$=uidoc.FieldGetText("Task h ) 

*Do some field validation 

If Sig$="" Or EDate="" Then 

GotoBailout2 
End If 

'Lets check the sig to make sure it is the RA 
If Sig$ <> yAtty$ Then 

Ok%=Messagebox("The name in the Responsible Attorney Certificate Signature field 

in incorrect." &_ 

" Only the Responsible Attorney may close this task!",0+48+0+0,"lncorrect 

Information") 

If Ok%=1 Then 

Exit Sub 
End If 
End If 

'Electronically route the info to the default profile and the docket manager 

Set maiidoc = New NotesDocument(db) 

maildoc.Form-'MailNot" 

'Set the default routing (To and CC fields) and bring up the form 

If (Project$="Prosecution: Trademark" Or Project$="Prosecution: Patent" Or Projects 

"Prosecution: Copyright" Or 
Project$="Litigation") Then 

Set view = db.GetView( "(Routing Profile)" ) 
Set doc = view.GetFirstDocument 
Select Case Projects 
Case "Prosecution: Patent" 

maildoc.SendTo=doc.Patent_Routing 
Case "Prosecution: Trademark" 



120 



maildoc.SendTo=doc.TM_Routing 
Case "Presecution: Copyright" 

mialdoc.SendTo=doc.Cpy_Routing 
Case "Litigation" 

maildoc.SendTo=uidoc.FieldGetTextf'lit_route_ev , 7 
Case "Counselling and Advice" 

maildoc.SendTo=uidoc.FieldGetText("liWoute_ev") 
Case "Other 

maildoc.SendTo=uidoc.FieldGetTextC , lit_route_ev M ) 
End Select 

maildoc.CopyTo=Sender$ 
mai!doc.Subject=Task Closure Notification" 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 

Dim rtStyle As NotesRichTextStyle 

Set rtStyle^session.CreateRichTextStyle 

With rtiBody 

rtStyle.bold=True 

AppendStyle(rtStyle) 

.AppendText "Reference: " 

AddTabl 

rtStyle.bold=False 

AppendStyle(rtStyle) 

.AppendText "Client - " + Client$ 

.AddNewLine 1 

AddTab2 

.AppendText "Matter - " + Matter$ + " f + MatterNo$ + "]" 
.AddNewLine 2 

.AppendText "Please note that a task pertaining to: the " + Projects + " project has 

been completed." 

.AddNewLine 1 

.AppendText "The Task pertains to: "♦RelS*"." 
.AddNewLine 2 
rtStyle.bold=True 
.AppendStyle(rtStyle) 
.AppendText "Comments: " 
End With 'rtibody 

maildoc.HoldTxt=rtiBody.GetFormattedText(False, 70) 

Flag=workspace.DialogBox("(MailNot)" f True, True, False, False, False, False, 'Task 

Completion",Maildoc) 

lfFlag=True Then 

Set rtem=maildoc.Getnrstltemf EditTxt") 

rtStyle.bold=False 

Call rtibody AppendStyle(rtStyle) 

Forall Text In item.values 

Call rtibody .AppendText (Text) 

Call rtibody .AddNewLine (1) 
End Forall 
With rtiBody 

.AddNewLine 2 

AppendText "Please click here to view the Task >" 

AppendDocLink uidoc.document,"" 
AddNewLine 2 
AppendText AddCmt$ 



End With 

maildoc.EditTxt="" 
maildoc.Form="Memo" 
maildoc.HoldTxt="" 
Call maildoc.Send(False) 
End If 

'End If 'message to default group 

'Find out if we need to notify the Docket Manager 

YesOrNo%=Messagebox("Does this Task require notification of the Docket Manager and 

removal from the 
Docket?", 4+32+0+0, "Remove 
From Docket?") 

lfYesOrNo%=7Then 

Call uidoc.FieldSetTextCRACIosed", "yes") 
Call uidoc.FieldSetText(TEArchive", "yes*) 
Call uidoc.FieldSetText("Status'\ "Completed") 

Qall uidoc.FieldSetText("IPD_Sig",. "Removal from Docket not required") 
Call uidoc.FieldSetTextCDocDateComplete", Format(TEDateComplete, "Short Date")) 
Call uidco.FieldSetTextCUnHideDM", "yes") 
Goto SaveAndClose 
End If 

•Notify the docket manager 
maildoc.Form="Mai!Not" 
maildoc.SendTo =,m 
maildoc.body=" n 

maildoc.Subject=Task Closure Notification" 

maildoc.SendTo=doc.DocketMgr 

maildoc.CopyTo=Sender$ 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

rtStyle.bold=True 

.AppendStyle(rtStyle) 

.AppendText "Reference: " 

.AddTab 1 

rtStyle.bold=False 

.AppendStyle(rtStyle) 

.AppendText "Client - " + Client$ 

.AddNewLine 1 

.AddTab 2 

.AppendText "Matter - " + Matter$ + " [' + MatterNo$ + T 
.AddNewLine 2 

.AppendText "Please note that a task pertaining to: the " + Projects + " project has 

been completed." 

.AddNewLine 1 

.AppendText "The Task pertains to: " + Ref$ + "." 
.AddNewLine 2 

.AppendText "Please remove any reference to this task from the docket." 
.AddNewLine 2 
rtStyle.bold=True 
.AppendText "Comments: " 
End With 'rtibody 

maildoc.HoldTxt=rtiBody.GetFormattedText(False, 70) 

Flag=workspace.DialogBoxr(MailNot)" f True, True, False, False, False, False, Task 

Completion",maildoc) 
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lfFlag=True Then 

Set item=maildoc.GetFifstltem("EditTxt") 

rtStyle.bold=False 

Call rtiBody.AppendStyle(rtStyle) 

Forail Text In item.values 

Call rtibody.AppendText(text) 

Call rtibody.AddNewLine(1) 
End Forail 
With rtiBody 

.AddNewLine2 

.AppendText "Please click here to view the Task information >" 

.AppendDocLink uidoc.document,"" 
.AddNewLine 2 
.AppendText AddCmt$ 
End With 

maildoc.EditTxt="" 
maildoc.Form= tt Memo" 
maildoc.HoldTxt="" 
Call maikJoc.Send(False) 
End If 

Ok%=Messagebox(This Task will be removed from the Active view when the Docket 

Manager has removed it from 
the docket." l O+64+0+O i 
"Closure Successful") 

lfOk%=1Then 

Call uidocFieldSetTextfRACIosed", "yes") 

Goto SaveAndClose 
End If 
•Else 

'Goto bailout 
•Bailout 

f Ok%=Messagebox("No Notifications required for this Task Closure. ■ &_ 
,n This Task will be removed from the Active view when the Docket Manager has 

removed it from the docket 

",0+64+0+0,"Closure 

Successful") 

•If Ok%=1 Then 

•Call uidocFieldSetTextfRACIosed", "yes") 

•Goto SaveAndClose 
•End If 
Bailout2: 

Ok%=MessageboxfPlease enter a Closing Date for the Task and press the 'Close This 

Task' or 'Remove From Docket* 
button 

again!" l 0+32+0+0 f "Required 
Information") 

lfOk%=1 Then 

Exit Sub 
End If 
•End If 

•Start saving and closing the document for the last time. Do it here to avoid pressing the 

save/close button . 

SaveAndClose: 

"Get some final values . . * 
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yTask$=uidoc.FieldGetText( n Task") 
yAtty$=uidoc.FieldGetText("resp__atty") 
TEDateComplete=uidoc.FieldGetText( i TEDateComplete ,, ) 
'Define some other variables 
yhist$=uidoc.FieldGetText("History") 

NewHist$ = "Modified on'" + Date$+" "+Time$ + B by " + Session.CommonUserName 
update$="N" 

•Set the PropClose field to Close so we can save the document 
Call uidoc.FieldSetTertCPropClose", "Closed") 
•Check each field for change to compile the change history 
If xTask$ o yTask$ Then 

NewHist$ = NewHist$ &Chr(010) + Task changed to: " + yTask$ + " from " + xTask$ 

update$="Y" 
End If 

If xAtty$ <> yAtty$ Then 

NewHist$ = NewHist$ &Chr(010) + "Responsible Attorney changed to: " + yAtty$ + " 

from " + xAtty$ 

update$="Y" 
End If 

'check if task is being closed and write out to history 

If TEDateComplete <> "" Then 

NewHist$ = NewHist$ &Chr(010) + "The Task was marked closed as of " + 

Fonmat(TEDateComplete, 
"Short Date") 

update$="Y" 
End If 

'Append the new changes to the History 
If update$='Y" Then 

Call uidoc.FieldSetTextrstatus_r,"Modified") 

Call uidoc.FieldSetText ("History", NewHist$ &Chr(010) +" 



— > "&Chr(010) 

+ yhist$) 

End If 

'Save and close the document 

Call uidoc.Save 

Call uidoc.Close 
End Sub 
(Button) Remove from Docket 
Sub Click(Source As Button) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace.CurrentDocument 

Dim Session As New NotesSession 

Dim view As Notes View 

Dim routdoc As NotesDocument 

Set db=session.CurrentDatabase 

Sig$=uidoc.FieldGetText("IPD_Sig") 

EDate=uidoc.FieldGetText("DocDateComplete") 

'Unhide the closure info 

Call uidoc.FieldSetTextfUnHideDM", "yes") 

Call uidoc.FieldSetTextflPD.Sig", Session.CommonUserName) 

Call uidoc.RefreshHideFormulas 
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Call uidoc.Refresh 

'Do some field validation 

lfSig$=""OrEDate=""Then 

Ok%=MessageboxfPlease provide a completion date for your action!" ,0+32+0+0, 

"Required Information") 

If0k%=1 Then 

Exit Sub 
End If 
End If 

'Lets check the sig to make sure it is the Docket Manager 
Set view = db.GetView( "(Routing Profile)" ) 
Set routdoc = view.GetFirstDocument 
If Sig$ <> routdoc.DocketMgr(O) Then 

Ok%=Messagebox("The name in the Docket Manager Certificate Signature field in 

incorrect." &_ 

" Only the Docket Manager may remove this Task from the 

Docketr\0+48+0+0 f "lncorrect 
Information") 

If0k%=1 Then 

Exit Sub 
End If 
End If 

'Set these fields to close the document 
Call uidoc.FieldSetTextfTEArchive", "yes") 
Call uidoc.FieldSetTextfStatus", "Completed") 
Call uidoc.FieldSetTextfPropClose", "Closed*) 

Messagebox "This Task has been closed and removed from the docket. It will be now be 

removed from the Active views." 
f 0+64+O+0 t "Closure Successful" 

'Start saving and closing the document for the last time do it here to avoid pressing the 

save/close button 

'Get some final values 

yTask$=uidoc.FieldGetText("Task") 

yAtty$=uidoc.FieldGetText("resp_atty") 

DocDateCompletesuidoc.FieldGetTextC'DocDateComplete") 

'Define some other variables 

yhist$=uidoc.FieldGetText("History") 

NewHist$ = "Modified on " + Date$+" "+Time$ + " by " + Session.CommonUserName 
update$="N" 

'Check each field for change to compile the change history 
If xTask$ <> yTask$ Then 

NewHist$ = NewHist$ &Chr(01 0) + "Task changed to: " + yTask$ + " from " + xTask$ 

update$="Y" 
End If 

If xAtty$ <> yAtty$ Then 

NewHist$ = NewHist$ &Chr(010) + "Responsible Attorney changed to: " + yAtty$ + " 

from " + xAtty$ 

update$="Y" 
End If 

'check if task is being closed and write out to history 

If DocDateComplete <> "" Then 

NewHist$ = NewHist$ &Chr(010) + "The Task was removed from the docket on " + 

Format(DocDateComplete,' 
"Short Date") 
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update$= ,f Y" 
End If 

'Append the new changes .to the History 

if update$="Y" Then 

Call uidoc.FieldSetText("Status_1 "."Modified") 

Call uidoc.FieldSetText ("History", NewHist$ &Chr(010) +"■ 



&chr(010) 

+ yhist$) 

End If 

'Save and close the document 

Call uidoc.Save 

Call uidoc.Close 
End Sub 
(Action) Route via Email 

Sub Click(Source As Button) 

Dim db As NotesDatabase 

Dim workspace As New NotesU I Workspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace.CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

Dim doc.As NotesDocument 

Dim doc2 As NotesDocument 

Dim maildoc As NotesDocument 

Dim view As NotesView 

'Get some data from the base document and set the variables 

yAtty$=uidoc.FieldGetText("resp_atty") 

Project$=uidoc.FieldGetTextrProject") 

Client$=uidoc.FieldGetText("ClienLName") 

Matter$=uidoc.FieldGetTextCMatter_Name") 

MatterNo$=uidoc.FieldGetTexirMatter_No") 

Peop!e$=uidoc.FieldGetTextriit_route_ev") 

Sender$=Session.CommonUserName 

Ref$=uidoc.FieldGetText("PDescrip") 

'Electronically route the info to the default profile and the attorney 
'If uidoc. IsNewDoc Or xAtty$<>yAtty$ Then 
Set maildoc = New NotesDocument(db) 
maildoc.Form="MailNot" 

'Set the default routing (To and CC fields) and bring up the form 

'If (Project$="Prosecution: Trademark" Or Projecl$="Prosecution: Patent" OrProject$= 

"Prosecution: Copyright" Or 
Project$="Litigation") Then 

Set view = db.GetView( "(Routing Profile)" ) 
Set doc = view.GetFirstDocument 
Select Case Projects 
Case "Prosecution: Patent" 

maildoc.SendTo=doc.Patent_Routing 
Case "Prosecution: Trademark" 

maildoc.SendTo=docTM_Routing 
Case "Presecution: Copyright" 

mialdoc.Sendto=doc.Cpy_Routing 
Case "Litigation" 

maildoc.SendTo=uidoc.FieIdGetText("lit_route_ev r > 
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Case "Counselling and Advice" 

rnaildoc.SendTo=uidoc.FieldGetTextniLroute_ev 1 ') 
Case "Other 

maildoc.SendTo=uidoc.FieldGetTextriit_route_ev") 
End Select 

maildoc.CopyTo=Sender$ f 
maildoc.Subject="New Task Notification" 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body 11 ) 
Dim rtStyle As NotesRichTextStyle 
SetrtStyle=session.CreateRichTextStyle 
With rtiBody 

rtStyle.bold=True 

.AppendStyle(rtStyle) 

.AppendText "Reference: " 

.AddTab 1 

rtStyle.bold=False 

.AppendStyle(rtStyle) 

.AppendText "Client + Client$ 

.AddNewLine 1 

.AddTab 2 

.AppendText "Matter - " + Matter$ + " f + MatterNo$ + "]" 
.AddNewLine 2 

.AppendText "Please note that a new Task has been created for the " + Projects + " 

project for the referenced Client 
and Matter." 

.AddNewLine 1 

.AppendText 'The Task pertains to: " + Ref$ + 
^AddNewLine2 

.AppendText yAtty$ +" has been assigned as the responsible attorney for this Task." 
.AddNewLine 2 
rtStyle.bold=True 
.AppendStyle(rtStyle) 
.AppendText "Comments: " 
End With 'rtibody 

maildoc.HoldTxt=rtiBody.GetFormattedText(False, 70) 

F!ag=workspace.DialogBox("(MailNot) w , True, True, False, False, False, False, "New Task 

Notification",Maildoc) 

lfFlag=True Then 

Set item=maildoc.GetFirstltem("EditTxt") 

rtStyle.bold=False 

Call rtibody.AppendStyle(rtStyle) 

Forall Text In itenrvalues 

Call rtibody.AppendText (Text) 

Call rtibody.AddNewLine (1) 
End Forall 
With rtiBody 

.AddNewLine 2 

.AppendText "Please click here to view the Task >" 

.AppendDocLink uidoc.document,"" 
.AddNewLine 2 
AppendText AddCmt$ 
End With 

maildoc.EditTxt="" 
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maildoc.Form="Memo" 
maildoc.HoldTxt="" 
Call maildoc.Send(False) 
End If'dialogbox for message to default group 
f End If 

'Notify the responsible attorney 

'If uidoc. lsNewDocOrxAtty$<>yAtty$Then 

maildoc.Form="MaiiNot" 

maildoc.Sendfo= ,m 

maildoc.body="" 

maildoc.SendTo=yAtty$ 

maildoc.CopyTo=Sender$ 

Set rtiBody = New NotesRichTextltem (maildoc, "Body' 1 ) 
With rtiBody 

rtStyle.bold=True 

.AppendStyle(rtStyle) 

.AppendText "Reference: " 

.AddTab 1 

rtStyle.bold=False 

.AppendStyle(rtStyle) 

.AppendText "Client - M + Client? 

.AddNewLine 1 

.AddTab2 

.AppendText "Matter - " + Matter? + n f + MatterNo? + T 
.AddNewLine 2 

.AppendText "Please note that a new Task has been created for the n + Project? + " 

project for the referenced Client 
and Matter." 

.AddNewLine 1 

.AppendText 'The Task pertains to: " + Ref$ + "." 
.AddNewLine 2 

.AppendText "You have been designated the responsible attorney for this Task." 
.AddNewLine 2 
rtStyle.bold=True 
.AppendText "Comments: " 
End With 'rtibody 

maildoc.HoldTxt=rtiBody.GetFormattedText(False > 70) 

Flag=workspace.DialogBox("(MaiINot)", True, True, False, False, False, False, "New Task 

Notification" ( maildoc) 

lfFlag=True Then 

Set Hem=maildoc.GetRrstltemC , EditTxt") 

rtStyle.bold=False 

Call rtiBody.AppendStyle(rtStyle) 

Forall Text In item.values 

Call rtibody.AppendText(text) 

Call rtibody.AddNewLine(1) 
End Forall 
With rtiBody 

.AddNewLine 2 

.AppendText "Please click here to view the Task >" 

.AppendDocLink uidoc.document,"" 
.AddNewLine 2 
.AppendText AddCmt$ 
EndWith 
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maildoc.EditTxt="" ' 

maildocPorm-'Memo" 

maildoc.HoldTxt="" 

Call maildoc.Send(False) 
End If 
'End If 
•End If 
End Sub 
(Action) Manually Route 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Dim uidoc2 As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim Routdoc As NotesDocument 
Dim view As NotesView 
Dim iteml As Notesltem 
Dimitem2As Notesltem 
Dim nn As NotesName 
'Get project and form type 
Project$=uidoc.FieldGetTextCProject") 
Form$=uidoc.FieldGetText( n FormName") 
'Set the project type 
Select Case Project$ 
Case "Prosecution: Patent" 

rt$="Patent Task Routing Slip" 

RoutForm$="ProsRoutPat" 
Case "Prosecution: Trademark" 

rt$='Trademark Task Routing Slip" 

RoutForrn$="ProsRoutTM" 
Case "Prosecution: Copyright" 

rt$="Copyright Task Routing Slip" 

RoutForm$="ProsRoutCR" 
Case "Litigation" 

rt$="Lftigation Task Routing Slip" 
Case "Counselling and Advice" 

rt$="C&A Task Routing Slip" 
Case "Other" 

rt$="Other Task Routing Slip" 
End Select 

'Get some general doc info from form 

Att$=ukJoc.FieldGetTextCresp_atty") 

Client$=uidoc.FieldGetText("Client_Name") 

ClientNo$=uidoc.FieldGetTextCCIient_No") 

MatterName$=uidoc.FieldGetText( l, Matter_Name w ) 

MatterNo$=uidoc.FieldGetTextrMatter_No'7 

Ref$=uidoc.FieldGetText( n PDescrip n ) 

'Check for conditions, save the Task form and bring up the correct manual routing form 
If Form$=Task" And (Project$="Prosecution: Copyright" Or Project$="Prosecution: 

Patent" Or 
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Project$=Trosecution: 
Trademark") Then 

Call uidoc.Reload 

'Get some routing information from the profile 
Set view = db.GetView( "(Routing Profile)" ) 
Set doc = view.GetFirstDocument 
If RoutForm$= M ProsRoutPat" Then 

Set iteml =doc.GetFirstltem("ProsRoutePatCpy1 ") 

Set ltem3^oc.GetFiretltem("ProsRoutePatCpy3") 

Set ltem4=doc.GetFirstltemCProsRoutePatCpy4") 
End If 

If RoutForm$= M ProsRoutTM" Then 

Setitem1=doc.GetFirstltemCProsRouteTMCpy1") 

Set ltem3=doc.GetFirstltem("ProsRouteTMCpy3 ,; ) 

Set ltem4=doc.GetFirstltemfProsRouteTMCpy4i 

Set ltem5=doc.GetFirstltem("ProsRouteTMCpy5") 
End If 

If RoutForm$= n ProsRoutCR" Then 

Set iteml =doc.GetFirstltem("ProsRouteCRCpy1 ") 

Set ltem3=doc.GetFirstltemrProsRouteCRCpy3^ 

Set lten^=doc.GetFirstltemC'ProsRouteCRCpy4") 
End If 

'Create the routing document and populate the distribution 
Set Routdoc = db.CreateDocument 
Ro utdoc.Form=RoutForm$ 

Routdoc.PRoutej! = iteml .values 'Always the docket 
Routdoc.PRoute_2=Att$ 'Always the resp attorney 
'Populate the Patent routing other distro fields 
If RoutForm$="ProsRoutPat" Then 

Set Tgtltem=New Notesltem(Routdoc, "PRoute_3" ( ""J 

Forall x In Item3.values 

Tgtltem^ppendToTextList x + " __ B +Chr(010) 

End Forall 

Set Tgtltem=New Notesltem(Routdoc, "PRoute_4", "") 
Forall x In Item4 .values 

TgtltemJVppendToTextList x + " "+ Chr(010) 

End Forall 
End If 

'Populate the Trademark routing distro 
If RoutForm$="ProsRoutTM" Then 

Set Tgtltem=New Notesltem(Routdoc, "PRoute_3", "") 

Forall x In Item3.values 
. Tgtltem.AppendToTextList x + " "+ Chr(010) 

End Forall 

Set Tgtltem=New Notes ltem(Routdoc, "PRoute_4", "") 
Forall x In Item4.values 

Tgtltem.AppendToTextList x + " "+ Chr(01 0) 

End Forall 

Set Tgtltem=New Notesltem(Routdoc t "PRoute_5'\ "") 
Forall x In Item5.values 

Tgtltem^ppendToTextList x + " n + Chr(010) 

End Forall . 
End If 

If RoutForm$= M ProsRoutCR" Then 



Set Tgtltem=New Notesltem(Routdoc, "PRoute_3 w f "") 
Forall x In Item3.values 

Tgtltem.AppendToTextList x + " "+ Chr(010) 

End Forall 

Set Tgtltem=New Notesltem(Routdoc, "PRoute_4", "") 
Forall x In Item4 .values 

Tgtltem.AppendToTextList x + " "+ Chr(01 0) 

End Forall 
End If 

'Fill in the other info on the routing doc 

Routdoc.pros_rout_re=Ref$ 

Routdoc.route_type=rt$ 

Routdoc.ClientNameNunri^'Client: " + Clients + n - " +ClientNo$ 
Routdoc.MatterNameNum= n Matter: " + MatterName$ + n - " + MatterNo$ 
Routdoc.cre_date1 =Now 

Routdoc.route_authort=session.CommonUserName 
Set uidoc2=workspace.EditDocument(False, Routdoc, False) 
'Handle the Litigation and Other Routing Events 

Elseif Form$='Task" And (Project$="Counselling and Advice" Or Project$="Other" Or 

Project$="Litigation") Then 

Call uidoc.Reload 

'Get some specific form info 

RouteType$=Project$ + " Task Routing Slip" 

LitRout$=uidoc.FieldGetTextCTask") 

'Create the routing document and populate it 

Set Routdoc = db.CreateDocument 

Routdoc.Form="LitRout" 

Routdoc.ClientNameNum="Client: " + Client$ + " - " + ClientNo$ 
Routdoc.MatterNameNum="Matter: " + MatterName$ + " - " +MatterNo$ 
RoutdocJit_rout_re=LitRout$ 
Routdoc.document=ref$ 

Routdoc.route_author1=session.CommonUserName 

Routdoc.cre_date1 =Now 

Routdoc.lit_route1_to=Att$ 

Routdoc.Route_Type= RouteType$ 

'Process routing info from Event/Task form 

Set doc=uidoc.document 

Dim RegName 0 As String 

Set iteml =doc.GetFirstltem("lit_route_e\0 

Choices=item1 .values 

Redim RegName (Ubound (Choices)) 

counten=0 

Forall temp In Choices 

Set nn = New NotesName(temp) 
RightName$= nn.Common 

RegName(counter)=RightName$ +" n 

counter=counter+1 
End Forall • • 

Set Tgtltem=New Notesltem(Routdoc, "Reroute Jo", RegName) 
Set uidoc2=workspace.EditDocument(False f Routdoc, False) 
Else 

Messagebox "There is no manual routing for this Event or Task.",0+1 6+0+0 
End If 'Man Routing 
End Sub 
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(Action) Save & Close 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NoteslllWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim theAgent As NotesAgent 

'Define the the counterpart y variables for those x variables in postopen 

yTask$=uidoc.FieldGetTextCTask M ) 

yAtty$=uidoc.FieldGetTextCresp_atty") 

TEDateComp!ete$=uidoc.FieIdGetText( , TEDateComplete ,, ) 

TEDate%=Len(TEDateCompIete$) 

DocDateComplete$=uidoc.FieldGetTextCDocDateCompIete") 

DocDate%=Len(DocDateComplete$) 

'Grab values to check for a bad Task Closure 

F^Sig$=uidoc.FieldGetTextCRA_Sig") 

DSig$=uidoc.FieldGetText("IPD_Sig") 

UnHideRA$=uidoc.ReldGetTextCUnHideRA") 

UnHideDMS^idocFieWGetTextrUnHideDM") 

RACIosed$=uidoc.FieldGetTextC'RACIosed") 

TEArchive$=uidoc.FieldGetText("TEArchive") 

'Before we do anything, Check for a bad task closure 

If RASig$="" Or TEDate% < 1 Then Notcomplete$="yes" Else Notcomplete$- 'no" 
If Notcomplete$=UnHideRA$ Then 

Ok%=Messagebox("You have attempted to close this Task without properly completing 

the Closure Certificate. 
"Please provide the required closure information or use the 'Cancel 1 button to abort 

your changes 
!" f 0+48+0+0*ERROR") 

If Ok%=1 Then 

Exit Sub 
End If 
End If 

If DSig$="" Or DocDate% < 1 Then Notcomplete$= "yes" Else Notcomplete$= n no w 
If Notcomplete$= UnHideDM$ Then 

Ok%=Messagebox( TT You have attempted to remove this Task form the docket without 

properly completing the Closure 
. Certificate. " &_ 

"Please provide the required closure information or use the 'Cancel 1 button to abort 

your changes 
!",0+48+0+0/'ERROR") 

If Ok%=1 Then 

Exit Sub 
End If 
End If 

If RACIosed$="no" Then 
If UnHideRA$= "yes" Then 

Ok%=Messagebox("Please Finish closing the task by pressing the 'Close This Task' 

button again." 
,0+48+0+0,"ERROR") 

lfOk%=1Then 
. Exit Sub 
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End If 
End If 
End If 

lfTEArchive$="no" Then 
If UnHideDM$= "yes" Then 

Ok%=Messagebox("Please Finish closing the task by pressing the 'Remove From 

Docket 1 button again." 
,0+48+0+0,"ERROR") 

lfOk%=1Then 

Exit Sub 
End If • 
End If 
End If 

'Define some other variables 
yhist$=uidocPieldGetText("History") 

NewHist$ = "Modified on " + Date$+" "+Time$ + " by " + Session.CommonUserName 
update$="N H 

'Set the PropClose field to Close so we can save the document 
Call uidoc.FieldSetTextCPropClose", "Closed") 
'Check each field for change to compile the change history 
If xTask$ <> yTask$ Then 

NewHist$ = NewHist$ &Chr(010) + "Task changed to: " + yTask$ + " from 0 + xTask$ 

update$="Y" 
End If 

lfxAtty$oyAtty$Then 

NewHist$ = NewHist$ &Chr(01O) + "Responsible Attorney changed to: " + yAtty$ + " 

from " + xAtty$ 

update$="Y" 
End If 

'Append the new changes to the History 
lfupdate$="Y"Then 
If uidoc.lsNewDoc Then 

Call uidoc.FieldSetTextfStatusJ", "New' 1 ) 

Call uidocFieldSetText ("History", "Document Created: " + Date$+ n W +Time$ + " 

by" + 

Session.CommonUserName 
&Chr(010)) 

Else 

Call uidoc.Fie1dSetTextfStatus_1 "/'Modified") 

Call uidocFieldSetText ("History", NewHist$ &Chr(010) — 



&Chr(010) + yhist$) 

End If 
End If 

'Save and close the document 
Call uidoc.Save 
Call uidoc.CIose 
End Sub 



Name: (Archive Log) 

Alias: Archive Log 

Alias: ArchiveLog 
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r • 

Last Modification: 


03/18/1999 02:21:51 PM 


Comment: 


[Not Assigned] 


Type: 


Document 


Window Title Formula: 


"Archive Log" 


Include in Compose Menu: 


No 


Include in Query by Form: 


No 


Default Database Form: 


No 


Automatically Refresh Fields: 


No 


Mail New Documents When Saving: 


No 


Store Form In Documents: 


No 


Inherit Default Field Values: 


No 


Updates Become Responses: 


No 


Retain Prior Versions As Responses: 


No 


Activate Objects When Composing: 


No 


Activate Objects When Editing: 


No 


Activate Objects When Reading: 


No 


Document Encryption Keys: 


[None Assigned] 


j"^. ■ ft ■ a n mm* fl mm- 

Composed Documents May Be Read By: 


All Users 


Form May Be Composed By: 


All Users 


Subcomponents: 




Field: 


$MessageType 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Computed when composed 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Formula: 


Tog" 


Is Scripted: 


No 


Layout Region: 


• 


Show Border: 


No 


Three Dimensional Style: 


Yes 


Show Grid: 


No 


Snap to Grid: 


No 


Grid Size: 


72 


Field: 


FieldA_Disp 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Computed for display 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Formula: 


"Archive Log" 


Is Scripted: 


No 


Field: 


Log Count 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


LogTotal 
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Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 

Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Action: 



Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

ArchiveDate 

Time 

11/03/1999 05:36:18 PM 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Body 

Rich Text 
[Not Assigned] 
Editable 
No 

Disabled 
No 
Body 
No 

Archive Trailer 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

ArchiveTrailer 
No 

Subject 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

"Archive Log for " + 

@Text(ArchiveDate); 

No 

Categories 
Text 

[Not Assigned] 
Computed when composed 
No 

Disabled 
No 

"(Archive)" 
No 

Close 
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Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 



Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Layout Region: 

Show Border 

Three Dimensional Style: 

Show Grid: 

Snap to Grid: 

Grid Size: 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



@PostedCommand([Fil 
eCloseWindow]); 



(BusinessAddress 
Helper) 

03/18/1999 02:21:51 PM 

[Not Assigned] * 

Document 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 



No 

Yes 
No 
Yes 
72 

St reetAd dress 
Text 

Street address. 

Editable 

No 

Disabled 
No 

@Trim(StreetAddress_1 ) ; 

No 

City 

Text 

City or town name. 

Editable 

No 

Disabled 
No 

@Trim(City_1); 
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Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



No 
State 

Text 

State or province name. 1 

Editable 

No 

Disabled 
No 

@Trim(StateJI); 

No 

Zip 

Text 

Enter the ZIP or postal code. 

Editable 

No 

Disabled 
No 

@Trim(Zip_1); 
No 

Country 

Keywords 

Person's home country. 

Editable 

Standard 

No 

United States (US) 
Afghanistan (AF) 
Africa (OA) 
ALbania (AL) 
ALgeria (DZ) 
Andorra (AD) 
Angola (AO) ' 
Anguilla (Al) 
Antigua (AG) 
Argentina (AR) 
Armenia (AM) 
Aruba (AB) 
Australia (AU) 
Austria (AT) 
Azerbijan (AZ) 
Bahamas (BS) 
Bahrain (BH) 
Bangladesh (BD) 
Barbados (BB) 
Belarus (BY) 
Belarussia (BL) 
Belgium (BE) 
Belize (BZ) 
Benelux (BX) 
Bermuda (BM) 
Bhutan (BT) 
Bolivia (BO) 
Boputhatswana (BP) 
Bosnia-Hercegovina (BA) 
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Botswana (BW) 
Brazil (BZ) 

British Virgin Islands (BV) 

Brunei (BN) 

Bulgaria (BG) 

Burundi (Bl) 

Cambodia (CB) 

Canada (CA) 

Cape Verde Islands (CV) 

Cape Verde (CV) 

Cayman Islands (KY) 

Central African Republic (CF) 

Chad (TD) 

Chile (CL) 

China (CN) 

Colombia (CO) 

Congo (CG) 

Costa Rica (CR) 

Croatia (HR) 

Cuba (CU) 

Cyprus (CY) 

Czech Republic (CZ) 

Denmark (DK) 

Djibouti (DJ) 

Dominica (DM) 

Dominican Republic (DO) 

Ecuador (EC) 

Egypt (EG) 

El Salvador (SV) 

England (GB) 

Eritrea (ER) 

Estonia (EE) 

Ethopia (ET) 

European Community TMK (CT) 

European Community (EU) 

Falkland Island (FK) 

Fiji Islands (FJ) 

Finland (Fl) 

France (FR) 

Gabon (GA) 

Gambia (GM) 

Gaza District (GZ) 

Gazadia (GZ) 

Georgia (GE) 

Germany East (DD) 

Germany West (DE) 

Ghana (GH) 

Gibraltar (Gl) 

Gilbert (GL) 

Great Britain (GB) 

Greece (GR) 

Grenada (GD) 

Guam (GX) 

Guatemala (GT) 
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Guernsey (GS) 

Guinea (GN) 

Guyana (GY) 

Haiti (HT) 

Honduras (HN) 

Hong Kong (HK) 

Hungary (HU) 

Iceland (IS) 

India (IN) 

Indonesia (ID) 

International (WO) 

Iran (IR) 

Iraq (IQ) 

Israel (IL) 

Italy (IT) 

Ivory Coast (CI) 

Jamaica (JM) 

Japan (JP) 
Jersey (JE) 
Jordan (JO) 

Kazakhstan (KZ) 
Kenya (KE) 
Kiribati (Kl) 
Kuwait (KW) 
Kyrgystan (KG) 
Laos (LA) 
Latvia (LV) 
Lebanon (LB) 
Lesotho (LS 
Liberia (LR) 
Libya (LY) 
Llchtenstein (LI) 
Lithuania (LT) 
Luxembourg (LU) 
Macau (MM) 
Macau (MO) 
Macedonia (MK) 
Madagascar (MG) 
Malawi (MW) 
Malaya (MQ) 
Malaysia (MY) 
Maldiv (MV) 
Mali (ML) 
Malta (MT) 
Mauritius (MU) 
Mexico (MX) 
Moldova (MD) 
Monaco (MC) 
Mongolia (MN) 
Montserrat (MS) 
Morocco (MA) 
Mozambique (MZ) 
Myanmar (BU) 
Namibia (NA) 



Nepal (NP) 

' Netherlands Antilles (NT) 
Netherlands (NL) 
New Zealand (NZ) 
Nicaraguia (Nl) 
North Korea (KP) 
Norway (NO) 
Oman (OM) 
Pakistan (PK) 
Panama (PA) 
Papua New Guinea (PG) 
Paraguay (PY) 
PCT World (WO) 
Peru(PE) * 
Philippines (PH) 
Poland (PL) 
Portugal (PT) 
Puerto Rico (PO) 
Qatar (OA) 
Ras-al-Khaimah (RK) 
Republic of Ireland (IE) 
Republic of Nambia (WA) 
Republic of Yemen (YD) 
Romania (RO) 
Russia (RU) 
Rwanda (RW) 
Sabah (SB) 
San Marino (SM) 
Sarawak (SJ) 
Saudi Arabia (SA) 
Senegal (SN) 
Seychelles (SC) 
Sierra Leone (SL) 
Singapore (SG) 
Slovak Republic (SK) 
Slovenia (SI) 
Solomon Islands (SS) 
Somalia (SO) 
South Africa (ZA) 
South Korea (KS) 
Spain (ES) 
Sri Lanka (LK) 
St. Christopher (CP) 
St. Helena (SH) 
St. Kitts-Nevis (KN) 
St. Lucia (LC) 
St. Vincent (VC) 
Sudan (SD) 
Surinam (SR) 
Swaziland (SZ) 
Sweden (SE) 
Switzerland (CH) 
Syrian Arab (SY) 
Taiwan (TW) . 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Tajikistan (TJ) 
Tangier (Tl) 
Tanzania (TY) 
Thailand (TH) 
Togo (TG) 
Tonga (TO) 
Transkei(TE) 
Trinidad (TT) 
Tunisia (TN) 
Turkey (TR) 

Turkish Republic of North 
Cyprus (CT) 
Turkmenistan (TM) 
Turks & Caicos (TC) 
Tuvalu (EL) 
Uganda (UG) 
Ukraine (UA) 

United Arab Emirates (AE) 
United Kingdom (GB) 
Upper Volta(BF) 
Uraguay (UY) 
Uzbekistan (UZ) 
Vanuata (VU) 
Venda (VD) 
Venezuela (VE) 
Vietnam (VN) 
Virgin Islands (VI) 
West Bank (WB) 
Western Samoa (WS) 
World (WO) 

Yemen Democratic Republic 
(YD) 

Yemen North (YE) 
Yugoslavia 
Zaire (ZR) 
Zambia (ZM) 
Zanzibar (ZZ) 
Zimbabwe (ZW) 
No 

Disabled 
No 

@Trim(Country_1); 
No 

Contact_Address 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@Trim(StreetAddress + 
@lf(City != nn & StreetAddress 
l= nn \ ©NewLine + City; City) + 
@lf(State != nn & City != °"- t n , n ; 
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Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
JavaScript & HTML Code: 

- [None] 
LotusScript Code: 

[None] 

Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form; 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 



"") + State + "" + Zip); 
No 

AssoAddress 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@Trim(StreetAddress + 
@lf(City != - & StreetAddress 
!= M "; ©NewLine + City; City) + 
@if(State != nn & City != '"'; "; 
+ State + " " + Zip); 

No 



(ClientMatterReporttest) 

03/18/1999 02:21:52 PM 

[Not Assigned] 

Document 

No 

Yes 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 

Form Name 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

RptName 
Text 

[Not Assigned] 

Editable 

No 
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Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type; 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 



Disabled 

No 

No 

client 
Text 

{Not Assigned] 

Editable 

No 

Disabled 

No 

No 

ReportDate 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

RptType 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatter 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes 
Text 



Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyName_1 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyMatterJ 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyDate_1 

Datatype: Text 

Help Description: [Not Assigned] 

Field type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyDes_1 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyName_2 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

is Scripted: No 

Field: BodyMatter_2 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 



Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
. Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 



BodyDate_2 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_2 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_3 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatter_3 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_3 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_3 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName 4 

Text 

[Not Assigned] 
Editable 
No 

Disabled 



Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 



No 
No 

BodyMatter_4 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_4 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_4 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_5 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatter_5 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_5 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_5 
Text 

[Not Assigned] 
Editable 



Sign When Mailing/In Section: 
Encryption: 
. Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: . 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 



No 

Disabled 

No 

No 

BodyName_6 

Text 

{Not Assigned] 

Editable 

No 

Disabled 

No" 

No 

BodyMatter_6 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_6 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_6 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_7 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatter_7 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_7 
Text 



Help Description: 
Field Type: . 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: . 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
IsScripted: 



[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_7 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_8 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatterJt 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_8 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_8 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_9 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 



Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
. Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 



BodyMatter_9 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_9 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_9 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_10 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatterJO 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDatejIO 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_10 

Text 

[Not Assigned] 

Editable 

No 

Disabled 



Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: v 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 



No 
No 

Body Name_1 1 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatterjII 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_.11 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_11 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_12 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatterJ2 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_12 
Text 

[Not Assigned] 
Editable 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 



No 

Disabled 

No 

No 

BodyDesjl2 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_13 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatteM3 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_13 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_13 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_14 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatteM4 
Text 



Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
. Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
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Save and Close 



Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 



Action: 
Formula: 



Action: 
Formula: 



@Command([FileSave]) 
;@Command([FileCloseWindow 



JavaScript & HTML Code: 

[None] 
Lot us Sc ri pt Code: 
(Action) Delete Report 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim view As NotesView 
uidoc.Editmode=False 
Set doc=uidoc.document 
id$=doc.Universalid 
Call uidoc.closeO 

Set view=db.GetView( ,, AIIDocsByUNID ,, ) 
Set doc=view.GetDocumentByKey(id$, True) 
doc.remove(True) 

Set view=db.Get^/iew( n (AIIReports) ,, ) 
Call view.refreshO 

End Sub 
(Action) Close-Discard Edits 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDofcument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
flag=uidoc.Editmode 
If flag=True Then 

uidoc.Editmode=False 
End If 

Call uidoccloseQ 
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End Sub 

Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 



(ClientMatterReport) 

03/18/1999 02:21:52 PM 
[Not Assigned] 
Document 
No 
Yes 
No 
No 
No 
No 
No 
No 
No 
No 
No 
No 

[None Assigned] 
All Users 
All Users 

FormName 

Text , 

[Not Assigned] 
Editable 
No 

Disabled 
No 
No 

RptName 

Text 

[Not Assigned] 
Editable 
No 

Disabled 
No 
No 

client 

Text 

[Not Assigned] 
Editable 
No 

Disabled 
No 
No 

Re port Date 
Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 



Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

FieldType: 



No 
No 

RptType 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyNamejl 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMatjl 
Text 

[Not Assigned] 
Editable 



Sign When Mailing/In Section: No 
Encryption: . Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BDateJ 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyDesj! 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyName_2 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BMat_2 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BDate_2 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyDes_2 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyName_3 

Datatype: Text 



Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
. Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 



[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_3 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDateJJ 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_3 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_4 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_4 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_4 

Text 

[Not Assigned] 

Editable 

No 

Disabled ■ 

No 

No 



Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: - 



BodyDes_4 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_5 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_5 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_5 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_5 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_6 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMatjB 
Text 

[Not Assigned] 

Editable 

No 

Disabled 



Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Help Description: 
Field Type: 
■ Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 



No 
No 

BDate_6 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_6 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_7 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_7 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDateJT 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_7 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_8 
Text 

[Not Assigned] 
Editable 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 



No 

Disabled 

No 

No 

BMat_8 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_8 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_8 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No • 
No 

BodyName_9 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_9 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_9 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_9 

Text . 



Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption; 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
IsScripted: 



[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyNamejIO 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMatJIO 

Text 

(Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_10 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDesjIO 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyNamejM 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_11 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 



Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 



BDate_11 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDesjM 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_12 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_12 
Text ~ 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_12 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_12 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_13 

Text 

[Not Assigned] 
Editable 
No ' 
Disabled 



Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: " 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section- 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Heip Description: 

Field Type: 

Sign When Mailing/In Section: . 
Encryption: 

Update Requires Editor Access: 
• Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 



No 
No 

BMat_13 

Text 

[Not Assigned] 

Editable 

No . 

Disabled 

No 

No 

BDate_13 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_13 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_14 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_14 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_14 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes 14 
Text 

[Not Assigned] 
Editable 



Sign When Mailing/in Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/in Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 



No 

Disabled 

No 

No 

BodyNamejIS 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_15 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_15 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_15 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_16 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_16 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_16 

Text 



Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_16 

Text 

(Not Assigned] 

Editable 

No 

Disabled 

No 

No. 

BodyName_17 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_17 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_17 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_17 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

NextPage 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

"No" 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
. Help Description: 
Field Type: 



No 

Client2 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

Client 
No 

Bodyl\Jame_18 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_18 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_18 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_18 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_19 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_19 

Text 

[Not Assigned] 
Editable 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 



No 

Disabled 

No 

No 

BDate_19 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_19 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_20 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_20 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_20 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_20 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_21 
Text 



Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: % 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 



(Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_21 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_21 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_21 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_22 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_22 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_22 
Text 

[Not Assigned] 
Editable . 
No 

Disabled 

No 

No 



Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 



BodyDes_22 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_23 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_23 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_23 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_23 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_24 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_24 

Text 

[Not Assigned] 

Editable 

No 

Disabled 



Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

FieldType: 



No 
No 

BDate_24 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_24 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_25 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_25 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_25 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_25 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_26 

Text 

[Not Assigned] 
Editable 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Help Description: 
Field Type: 
^ Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type:- 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 



No 

Disabled 

No 

No 

BMat_26 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_26 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_26 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_27 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_27 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_27 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

No. 

BodyDes_27 
Text 



Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 



[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_28 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_28 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_28 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes__28 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_29 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_29 
Text 

[Not Assigned] 

Editable 

No 

Disabled . 

No 

No 



Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption:. 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 



BDate_29 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_29 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_30 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_30 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_30 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes__30 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_31 
Text 

[Not Assigned] 

Editable 

No 

Disabled 



Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BMat_31 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BDate_31 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BodyDes_31 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


Body Nam e_32 


DatatvDe* 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sigh When Mailing/in Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BMat_32 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BDate_32 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BodyDes_32 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 



No 

Disabled 

No 

No 

BodyName_33 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_33 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_33 
Text 

(Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_33 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_34 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_34 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_34 
Text 



Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Action: 

Formula: 
Action: 

Formula: 



[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_34 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_35 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_35 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_35 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_35 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Print Report 

@Command([FilePrint]); 
Save and Close 

@Command([FileSave]) 
;@Command([FileCloseWindow 
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JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(Action) Delete Report 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim view As NotesView 
uidoc.Editmode=False 
Set doc=uidoc.document 
id$=doc.Universalid 
Call uidoc.closeO 

Set view=db.GetViewC'AIIDocsByUNID") 
Set doc^view.GetDocumentByKey(id$, True) 
doc.remove(T rue) 

Set view=d b. GetVtew( n (A!IReports)") 
Call view.refreshO 

End Sub 
(Action) Close-Discard Edits 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
flag=uidoc.Editmode 
If flag=True Then 

uidoc.Editmode=False 
End If 

Call uidoc.closeO 
End Sub 

Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 



(CI ientProject Report) 

03/18/1999 02:21:52 PM 

[Not Assigned] 

Document 

No 

Yes 

No 

No 

No 

No 

No 

No 

No 

No 

No 



Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
- Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type- 
Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 



No 

[None Assigned] 
All Users 
All Users 

FormName 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

RptName 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

client 

Text 

[Not Assigned] 

Editable 

No 

Disabied 

No 

No 

Re port Date 
Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

RptType 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

MatterJYo 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section- 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: . 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Action: 

Formula: 
Action: 

Formula: 



Action: 
Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(Action) Delete Report 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesU I Workspace 
Dim uidoc As NotesUIDocument 
Set uidoc - workspace.CurrentDocument 



No 

Matter 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Bodyjl 

Rich Text 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Body_2 

Rich Text 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Body_3 

Rich Text 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Print Report 

@Command([FilePrint]); 
Save and Close 

@Command([FileSave]) 
;@Command([FileCloseWindow 

D; 

Close 

@Command([FileClose 
Window]); 
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Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim view As Notes View 
uidoc.Editmode=False 
Set doc=uidoc.document 
. id$=doaUniversa!id 
Call uidoc.closeO 

Set view=db.GetViewC7VIIDocsByUNID , 0 
Set doc=view.GetDocumentByKey(id$, True) 
doc.remove(True) 

Set view=db.Get\/iew^(AIIReports) ,, ) 
Call view.refreshO 

End Sub 
(Action) Close-Discard Edits 

Sub Ciick(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
flag=uidoc.Editmode 
If flag=True Then 

uidoc. Editmode=False 
End If 

Call uidoc.close 
End Sub 



Name: 



(MailNot) 

03/18/1999 02:21:53 PM 
[Not AssignedJ 
Document 



Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 

Include in Query by Form: 

Default Database Form: 

Automatically Refresh Fields: 

Mail New Documents When Saving: 

Store Form In Documents: 

Inherit Default Field Values: 

Updates Become Responses: 

Retain Prior Versions As Responses: 

Activate Objects When Composing: 

Activate Objects When Editing: 

Activate Objects When Reading: 

Document Encryption Keys: 

Composed Documents May Be Read By: 

Form May Be Composed By: 



No 
No 
No 
No 
No 
No 
No 
No 
No 
No 
No 
No 



[None Assigned] 
AN Users 
All Users 



Subcomponents: 



Field: 



SendTo 

Names 

Comma, Semicolon 
Semicolon 



Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator. 



Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
. Encryption: 

Update Requires Editor Access: 

Is Scripted: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Subject_d 

Text 

[Not Assigned] 
Computed for display 
No 

Disabled 
No 

Subject 
No 

EditTxt 

Text 

New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Subject 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Body. 
Rich Text 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

CopyTo 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 
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Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Layout Region: 

Show Borden 

Three Dimensional Style: 

Show Grid: 

Snap to Grid: 

Grid Size: 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: * 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When. Mailing/In Section: 
Encryption: 



(NameHelper) 

03/18/1999 02:21:54 PM 

(Not Assigned] 

Document 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 



Yes 
Yes , 
Yes 
Yes 
72 

FirstName 

Text 

First name(s) and nicknames- 
e.g. John; Johnny 
Editable 
No 

Disabled 
Yes 

Name_Edit 
No 

Middlelnitial 

Text 

Middle Initial with a trailing 
period (optional). 
Editable 
No 

Disabled 
Yes 

MiddlelnitiaLEdit 
No 

LastName 
Text 

Last name - e.g. Smith. 

Editable 

No 

Disabled 
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Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List- 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 



Yes 

LastName_Edit 
No . 
Title 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

-None-| 

Dr.|Dr. 

Prof.|Prof. 

Mr.|Mr. 

Ms.jMs. 

Miss|Miss 

Mrs.|Mrs. 

No 

Disabled 

No 

No 

Suffix 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

-None-| 
Jr.|Jr. 
Sr.|Sr. 
I 

II 
III 
No 

Disabled 

No 

No 

Contact Name 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@Trim(Title + " n + FirstName + 
" B + Middlelnitial + "" + 
LastName + n n + Suffix); 
No 

Associate 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 



195 



Formula: 



Is Scripted: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Layout Region: 

Show Border: 

Three Dimensional Style: 

Show Grid: 

Snap to Grid: 

Grid Size: 

Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 



@Trim(Title.+ " " + FirstName + 
M " + Middlelnitial + "" + 
LastName + w " + Suffix); 
No 



(PatentMatterHelper) 

04/20/1999 02:06:23 PM 

[Not Assigned] 

Document 

No 

Yes 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 



Yes 
Yes 
Yes 
Yes 
72 

concept 
Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 
No 
No 
rp 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 
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Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 



inhouse_disclos 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

external_disclos 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

whom 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
No 
PoA 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

@DbColurnn(""; : ""; "(Routing 

Profile)"; 3); 

No 

Disabled 
No 

itn 

No 

pofa_fa 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

related_matter_.no 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
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Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/in Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 
[None] 

Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Layout Region: 

Show Border 

Three Dimensional Style: 



No 

serial_number 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

inventor 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

clients_billing 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 



(PhoneHelper) 

03/18/1999 02:21:55 PM 

[Not Assigned] 

Document 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 



No 
Yes 



Show Grid: 
Snap to Grid: 
Grid Size: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: # 

Sigh When Mailing/In Section: 

Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 
. Datatype: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 



No 

Yes 

72 

PhoneLabeM 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

OfficePhoneNumber 
Text 

New Line, Blank Line 
New Line 

Office phone number. 

Editable 

No 

Disabled 

No 

Yes 

PhoneLabel_3 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

OfficeFAXPhoneNumber 

Text 

New Line, Blank Line 
New Line 

Office FAX phone number. 

Editable 

No 

Disabled 

No 

Yes 

PhoneLabel_5 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

CellPhoneNumber 

Text 

Cellular phone number. 

Editable 

No 

Disabled 
No 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 

Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: ^ 
Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 



Yes 

PhoneLabel_2 

.Text 

[Not Assigned] 

Editable 

No 

Disabled 
No v 
No 

PhoneNumber 

Text 

Semicolon, New Line, Blank 
Line 

New Line 

Home phone number. 

Editable 

No 

Disabled 

No 

Yes 

PhoneLabeM 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

HomeFAXPhoneNumber 

Text 

New Line, Blank Line 
New Line 

Home FAX phone number. 

Editable 

No 

Disabled 

No 

Yes 

PhoneLabel_6 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

PhoneNumber.6 

Text 

New Line, Blank Line 
New Line 

Home FAX phone number. 

Editable 

No 

Disabled 
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Update Requires Editor Access: 
Is Scripted: 



No 
Yes 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(Globals) 

Option Public 
Use "PhoneParser 
(Form) (PhoneHelper) 

Sub Postopen(Source As Notesuidocument) 

Dim w As New NotesUIWorkspace 

Dim s As New NotesSession 

Set db = s.CurrentDatabase 

Set uidoc=source 

Set doc = uidoc.document 
End Sub 
(Field) PhoneNumber_6 

Sub Exiting(Source As Field) 

F=Evaluate(|@False|) 

T=Evaluate(|@True|) 

l=Len(doc.PhoneNumber_6(0)) 
FtEM 'Test to see if the number contains any letters, 

REM n We do the test this way because it appears that ©matches does not return consistent 



REM " In order to make it easier to understand the logic, we do another I at the begining, so 



REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE 
x=Evaluate(|[@Matches(PhoneNumber_6; w +{!a-2A-Z) w )|, doc) 



FirstLet=Left(letters(0),1) 
p=Evaluate(|@Begins(PhoneNumber_6; ,, 1 ")|,doc) 
sep^Evaluated^ontainsCPhoneNumber^er-^l.doc) 

par=Evaluate(|@Contains(PhoneNumber_6;T) & @Contains(PhoneNumber_6-' 
locarea=Eva!uate(|locarea|) 

num=doc.PhoneNumber_6(0) 

Call ParsePhoneNumber(num) 

doc.PhoneNumber_6=Trim(Prefix & " n & tel & " " & Suffix) 
Call uidoc.refresh 
End Sub 

Sub Entering(Source As Field) 
End Sub 
Sub Initialize 
End Sub 
Sub Terminate 
End Sub 
(Field) HomeFAXPhoneNumber 
Sub Exiting(Source As Field) 
F=Evaluate(|@False|) 



results without doing the I of the 
pattern. 



that if it does contain letters 




:";")|. doc) 
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T=Evaluate(|@True|) 
l=Len(doc.HomeFAXPhoneNumber(0)) 
REM Test to see if the number contains any letters. 

REM " We do the test this way because it appears that ©matches does not return consistent 

results without doing the ! of the 
pattern. 

REM " In order to make it easier to understand the logic, we do another ! at the begining, so 

that if it does contain letters 

REM " the result is TRUE, otherwise if does not contain any letters the result is FALSE."; 
x=EvaIuate(|!@Matches(HomeFAXPhoneNumber; ,, +{!a-zA-Z} ,, )|, doc) 

letters=Evaluate(|@ReplaceSub 
string(HomeFAXPhoneNumber; 

9":T:T:"- M ; W, )|. doc) 

FirstLet=Left(letters(0),1) 

p=Evaluate(|@Begins(HomeFAXPhoneNumber f n 1 ,, )| t doc) 
sep=Evaluate(|@Contains(HomeFAXPhoneNumber; ,, - ,, )|,doc) 
par=Evaluate(|@Contains(HomeFAXPhoneNumber;"0 & 

@Contains(HomeFAXPhoneNu 
mbenT)|,doc) 

locarea=Evaluate(|locarea|) 
num=doc.HomeFAXPhoneNumber(0) 
Call ParsePhoneNumber(num) 

doc.HomeFAXPhoneNumber=Trim(Prefix & " 9 & tel & " " & Suffix) 
Call uidoc.refresh 
End Sub 

Sub Entering(Source As Field) 
End Sub 
Sub Initialize 
End Sub 
Sub Terminate 
End Sub 
(Field) PhoneNumber 

Sub Exiting(Source As Field) 

F=Evaluate(|@False|) 

T=Evaluate(|@True|) 

l=Len(doc.PhbneNumber(0)) 
REM 'Test to see if the number contains any letters. 

REM " We do the test this way because it appears that ©matches does not return consistent 

results without doing the ! of the 
pattern. 

REM " In order to make it easier to understand the logic, we do another ! at the begining, so 

that if it does contain letters 

REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE"; 
x=Evaluate(|!@Matches(PhoneNumber;"+{!a-zA-Zn| t doc) 



FirstLet=Left(letters(0),1) 

p=Evaluate(|@Begins(PhoneNumber,"1")|,doc) 

sep=Evaluate(|@Contains(PhoneNumber;"- n )|,doc) 



letters=Evaluate(|@ReplaceSub 
string(PhoneNumber;"0": 0 1 ":"2": 
w 3"*"4"*"5"*"6"* ,, 7"*"8"*"9"* w ("" ,l ) w *"- 
"HI. doc) 
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pa^EvaluateCIQContainsCPhoneNumbenT^&^ontainstPhoneNumbenl^l.doc) 
locarea=Evaluate(|locarea|) 
num=doc.PhoneNumber(0) 
Call ParsePhoneNumber(num) 
doc.PhoneNumber=Trim(Prefix & " " & tel & " " & Suffix) 
Call uidoc.refresh 
End Sub 

Sub Entering (Source As Field) 
End Sub 
Sub Initialize 
End Sub 
Sub Terminate 
End Sub 
(Field) CellPhoneNumber 
Sub Exiting(Source As Field) 

F=Evaluate(|@False|) 

T=Evaluate(|@True|) 

l=Len(doc.CellPhoneNumber(0)) 
REM "Test to see if the number contains any letters. 

REM ■ We do the test this way because it appears that ©matches does not return consistent 

results without doing the I of the 
pattern. 

REM H In order to make it easier to understand the logic, we do another I at the begining, so 

that if it does contain letters 

REM n the result is TRUE, otherwise it does not contain any letters the result is FALSE."; 
x=Evaluate(|l@Matches(CellPhoneNumber; w +{!a-zA-Z} ,, )|,doc) 

letters=EvaIuate(|@ReplaceSub 
string(CellPhoneNumber;"0 M : n 1": 

FirstLet=Lett(letters(0),1) 

p=Evaluate(|@Begins(CellPhoneNumben"1 ,, )|,doc) 
sep=Evaluate(|@Contains(CellPhoneNumben M - ,, )I,doc) 
pap=Evaluate(|@Contains(CellPhoneNumben n D & 

@Contains(CellPhoneNumber;" 
)")l.doc) 

locarea=Evaluate(|locarea|) 
num=doc.CellPhoneNumber(0) 
Call ParsePhoneNumber(num) 

doc.CellPhoneNumber=Trim(Prefix & " ■ & tel & " " & Suffix) 
Call uidoc.refresh 
End Sub 

Sub Entering(Source As Field) 
End Sub* 
Sub Initialize 
End Sub 
Sub Terminate 
End Sub ■ 
(Field) OfficeFAXPhoneNumber 
Sub Exiting(Source As Field) 

F=Evaluate(|@False|) 

T=Evaluate(|@True|) 

l=Len(doc.OfficeFAXPhoneNumber(0)) 
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REM 'Test to see if the number contains any letters. 

REM " We do the test this way because it appears that ©matches does not return consistent 

results without doing the ! of the 
pattern. 

REM n In order to make it easier to understand the logic, we do another ! at the begining, so . 

that if it does contain letters 

REM H the result is TRUE, otherwise it does not contain any letters the result is FALSE."; 
x=Evaluate(|!@Matches(OfficeFAXPhoneNumben ,,+ {!a-zA-Zn|,doc) 

letters=Evaluate(|@ReplaceSub 
string(OfficeFAXPhoneNumber; 

9V(":")":"-";"")|, doc) 

FirstLet=Left(letters(0),1) 

p=Evaluate(|@Begins(OfficeFAXPhoneNumber;"1 ,, )l.doc) 

sep=Evaluate(|@Contains(OfficeFAXPhoneNumben ,, - ,, )| f doc) 

par=Evaluate(|@Contains(OfficeFAXPhoneNumber; ,, n& 

@Contains(OfficeFAXPhoneNu 
mbeny)|,doc) 

locarea=Evaluate(|locarea|) 
num=doc.OfficeFAXPhoneNumber(0) 
Call ParsePhoneNumber(num) 

doc.OfficeFAXPhoneNumber=Trim(Prefix & " " & tel & " " & Suffix) 
Call uidoc.refresh 
End Sub 

Sub Entering(Source As Field) 
End Sub 
Sub Initialize 
End Sub 
Sub Terminate 
End Sub 
(Field) OfficePhoneNumber 
Sub Exiting(Source As Field) 

F=Evaluate(|@False|) 

T=Evaluate(j@True|) 

l=Len(doc.OfficePhoneNumber(0)) 
REM "Test to see if the number contains any letters. 

REM " We do the test this way because it appears that ©matches does not return consistent 

results without doing the ! of the 
pattern. 

REM " In order to make it easier to understand the logic, we do another ! at the begining, so 

that if it does contain letters 

REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE."; 
x=Evaluate(|!@Matches(OfficePhoneNumber; n +{!a-zA-Z}")|, doc) 

letters=Evaluate(|@ReplaceSub 
string(OfficePhoneNumber; H 0":" 

" : y : «_« ; -)| f doc) 

FirstLet=Left(letters(0),1) 

p=Evaluate(|@Begins(OfficePhoneNumben ,, 1' , )|,doc) 
sep=Evaluate(|@Contains(OfficePhoneNumber,"-")|.doc) 
par=Evaluate(|@Contains(OfficePhoneNumber,"0 & 

@Contains(OfficePhoneNumber 
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locarea=Evaluate(|locarea|) 
num=doc.OfficePhoneNumber(0) 
Call ParsePhoneNumber(num) 
doc.OfficePhoneNumber=Trim(Prefix & ' 
Call uidoc.refresh 
End Sub 

Sub £ntering(Source As Field) 

End Sub 

Sub Initialize 

End Sub 

Sub Terminate 

End Sub 



;T)l.doc) 



, &tel& ,,w &Suffix) 



Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



(ProjectProfile) 

03/18/1999 02:21:55 PM 

[Not Assigned] 

Document 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 

DocType 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

"ProjectProfile" 
No 

ProjectType 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

Prosecution: Patent 
Prosecution: Trademark 
Prosecution: Copyright 
litigation 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
[None] 

JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 



Other 

Counseling & Advice 
No 

Disabled 

No 

No 



(ReportCreatori) 

03/18/1999 02:21:55 PM 

[Not Assigned] 

Document 

Yes 

Yes 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 



(ReportCreator3) 

03/18/1999 02:21:56 PM 

[Not Assigned] 

Document 

No 

Yes 

No 

No 

No 

No 

No 

No 

No 

No 

No 



Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Layout Region: 
Show Borden 
Three Dimensional Style: 
Show Grid: N 
Snap to Grid: 
Grid Size: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Hotspot 
Type: 
Caption: 
Formula: 



Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 

Encryption: 
• Update Requires Editor Access: 

Is Scripted: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



No 

[None Assigned] 
All Users 
All Users 



No 

Yes 

Yes 

Yes 

72 

ReportDate 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Button 

Select a Matter 

FIELD matter := mattenFIELD 

DocUID := DocUID;temp := 

@PickList([Custom] : [Single]; 

@DbName; "ReportProjecT; 

"Select Matter; "Please select a 

matter to report on"; 

^jtemp^SetFieldfrnatter; 

@GetDocField(temp; 

"Matter_Name"));@SetField("Do 

cUID"; temp); 

matter 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

DocUID 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 



207 



Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
$$FormAction2: 



Subcomponents: 
Layout Region: 
Show Border: 
Three Dimensional Style: 
Show Grid: 
Snap to Grid: 
Grid Size: 
Field: 

Datatype: 

Time Format: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: t 
Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 



(ReportCreatorRespAtty) 

04/20/1 999 02:06:24 PM 

[Not Assigned] 

Document 

No 

Yes 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 
Iname := 

@RightBack(resp_atty; " 
");fhame := 

@LeftBack(resp_atty; " 
");cname := Iname + ° + 
fname;@SetFie!d("client n ; 
caame); 



No 

Yes 
Yes 
Yes 
72 

ReportDate 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

resp_atty 

Keywords 

[Not Assigned] 

Editable 

Standard 

No 

©DbCoIumnf"; mi : ""; "(Routing 

Profile)"; 3); 

No 

Disabled 
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Update Requires Editor Access: 
Default Value Formula: 



Is Scripted: 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section- 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Layout Region: 

Show Border 

Three Dimensional Style: 

Show Grid: 

Snap to Grid: 

Grid Size: 

Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 



No 

@lf(!@lsNewDoc; @lf(Form 
= XlientForm"; "Not Assigned"; 
resp_atty)); 
No 

client 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 



(RepprtCreator) 

03/18/1999 02:21:56 PM 
(Not Assigned] 
Document 
No 

Yes . 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 



No 

Yes 

Yes 

Yes 

72 

Report Date 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 
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Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Hotspot 
Type: 
Caption: 
Formula: 



JavaScript & HTML Code: 

[None) 
LotusScript Code: 

[None] 

Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Layout Region: 

Show Border 

Three Dimensional Style: 

Show Grid: 

Snap to Grid: 

Grid Size: 

Field: 

Datatype: 
Time Format: 
Help Description: 



client 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Button 

Select a Client 

FIELD client := client;cname := 
@PickList([Custom] : [Single]; 
©DbName; "ReportClient"; 
"Select Client"; "Please select a 
client to report on"; 
1);cname;@SetFieldfclient"; 
cname); 



(Status - Patent) 

03/18/1999 02:21:57 PM 

[Not Assigned] 

Document 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
. All Users 
All Users 



Yes 
Yes 
Yes 
Yes 
72 

filing_date 

Time 

11/03/1999 
[Not Assigned] 
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Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Js Scripted: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 
[None] 

Name: 

Last Modification: 
Comment- 
Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit.Default Field Values: 
Updates Become Responses: 



Editable 
No 

Disabled 

No 

No 

tenm_date 
Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

why_term 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

- select - 

abandonment 

appeal 

patent granted 
No 

Disabled 

No 

No 

maint 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 



(Status - Trademark) 

03/18/1999 02:21:58 PM 

[Not Assigned] 

Document 

No 

No 

No 

No 

No 

No 

No 

No 



Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Layout Region: 
Show Border: 
Three Dimensional Style: 
Show Grid: 
Snap to Grid: 
Grid Size: 
Field: 

Datatype: 
Time Format: 
Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format 
Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 

Sign When Mailing/In Section: 



No 
No 
No 
No 

[None Assigned] 
All Users 
All Users 



Yes 
Yes 
Yes 
Yes 
72 

first_use 
Time 

11/03/1999 

Enter the date the mark was first 

used 

Editable 

No 

Disabled 

No 

No 

i_state_use 
Time 

11/03/1999 

Enter the date the mark was first 
used in interstate commerce 
Editable 
No 

Disabled 

No 

No 

filing_date 
Time 

11/03/1999 

Please enter the date the 
application was filed 
Editable 
No 

Disabled 
. No 
No 

termination 
Keywords 

Please select "yes" or "no" 

Editable 

Standard 

No 

No 

Yes 

No 
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Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: . 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 
[None] 



Disabled 

No 

No 

renewal 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

term_date 

Time 

11/03/1999 

If terminated, please enter the 
date of termination 
Editable 
No 

Disabled 

No 

No 

how_term 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

- select - 

Expired 

Denied 

Completed 

No 

Disabled 

No 

No 



View Information 

Name: All Docs 

Last Modification: 08/27/1 999 02:1 8:49 AM 

Comment: [Not Assigned] 

Default Database View: No 

No Response Hierarchy: Disabled 

Categories Initially: Expanded 

Unread Maries: None 

Refresh Frequency: Automatic 

Discard Index: Never 

View May Be Used By: All Users 
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Time Relative Formulas: 
Selection Formula: 
Subcomponents: 
Column Number: 

Column Title: 

Column Formula: 

Column Width: 

List Separator 

Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator. 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 1 00)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(View) All Docs 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace.CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

vjewrO+48+0+0/'ERROR'') 

lfOk%=1Then 
continue=False 



No 

SELECT @AII 

1 

# 

@DocNumber 
2 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

2 

Form 
Form 

10 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 
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End If 
End Sub 



Name: 

Alias: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number 

Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 



All Docs\ArchiveDocs 

ArchiveDocs 
07/05/1999 02:14:18 AM 
[Not Assigned] 
No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT (Form = "Task" & 
TEArchive = "yes") | (Form = 
"Event" & TEArchive - "yes"); 

1 

Archive 
TEArchive 
6 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

2 

[Not Assigned] 

Client_Name + " [" + Client_No 

+ T; 

1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Lett 
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Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 



Column Width: 
List Separator 
Hidden: 



None 

No 

3 

[Not Assigned] 
@DocNumber 
1 Characters 

Yes 
No 
%No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

4 

Type 
Form 

4 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

5 

Events and Tasks 
@lf(Form = Task"; task; 
@lf(Form = "Event"; 
@lf(CopyrightEvent != ""; 
CopyrightEvent; 
@lf(PatentEvent != 
PatentEvent; 

@lf(TrademarkEvent != ""; 
TrademarkEvent; 
@lf(CounselEvent != mf ; 
CounselEvent; 
@lf(LrtigationEvent != ""; 
LitigationEvent; @lf(OtherEvent 
!= OtherEvent; "")))))); "")); 
18 Characters 

No 
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Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 



No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

6 

[Not Assigned] 

it n 

1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

7 

Responsible 

@Name([CN]; resp_atty); 
14 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1 999 05:36:1 9 PM 

Descending 

Left 

None 

No 

8 

Status 
Status 

7 Characters 

No 
No 
No 

General 



Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 
Subcomponents: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 



No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

9 

Date Completed 

@lf(Form = "Event"; EventDate; 

TaskDate); 

20 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Lett 

None 

No 



All DocsVByUNID 

07/05/1999 02:14:19 AM 

[Not Assigned] 

No 

Disabled 

Expanded 

None 

Automatic 

Never 

All Users . 

No 

SELECT @AII 

1 

# 

@Text(@DocumentUniquelD); 
41 Characters 

No 
No 
No 
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Number Format: 
Percentage (value * 1 00)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 1 00)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals- 
Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting- 
Justification: 
Totals: 

Hide Detail Values: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) All Docs\ByUNID 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 



General 
No 
No 
No 

11/03/1999 05:36:19 PM 
Ascending 
Left 
None 
No 
2 

Form 
Form 

10 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 
No 
Left 
None 
No 
3 

[Not Assigned] 
@Text($Ref); 
30 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 
No 
Left 
None 
No 



Set db=session.CurrentDatabase 
•Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

view!",0+48+0+0rERROR") 

lfOk%=1Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format- 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 



All Docs\Except System 

.07/05/1999 02:14:35 AM 

[Not Assigned] 

No 

Disabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = "ClientForm" | 
Form = "Matter" | Form = 
"Project" | Form = "Event" | 
Form = "Task"; 

1 

©DocNumber 
2 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Lett 

None 

No 

2 

Form 
Form 

10 Characters 

No 
No 
No 

General 
No 
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Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 



None 
No 



No 
Left 



No 
No 



11/03/1999 05:36:19 PM 



JavaScript & HTML Code: 

[None} 
LotusScript Code: 

(View) All Docs\Except System 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 

Dim db As NotesDatabase 

Dim workspace As New NotesUI Workspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace.CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

'Stop pasting documents into views 

Ok%=Messagebox('You are not allowed to paste documents into a 



view!",0+48+0+0 ( "ERROR") 



If Ok%=1 Then 



continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



All Docs\ForReporting 

08/24/1999 10:23:06 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = "Client" | Form 
= "Matter | Form = "Project" | 
Form = "Event" | Form = Task"; 



Subcomponents: 



Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 



General 



No 
No 



1 

clientname 
ClientJMame 
10 Characters 



No 
No 
No 
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Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 

Column Title: 
. Column Formula: 

Column Width: 

List Separator 

Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number. 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 



No 

11/03/1999 05:36:19 PM 

Ascending 

Lett 

None 

No 

2 

clientno 
Client_No 
10 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

3 

mattemame 

"Matter * + Matter_Name; 
10 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Lett 

None 

No 

4 

mattemo 
MatterJMo 
10 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 03:36:19 PM 
No 



Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: . 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format 
Sorting: 



Left 
None 
No 
5 

project 

@lf(project != "Project: " + 
Project; ""); 
10 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

6 

event 

@lf(event != ""; "Event: " + 

Event;""); 

5 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No" 

7 

task 

@lf(T ask != ""; "Task: " + Task; 

10 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 
Ascending 
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Justification: 
Totals: 

Hide Detail Values: 



Left 
None 
No . 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) All DocsVForReporting 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 



viewr,0+48+0+0/'ERROR'') 



lfOk%=1 Then 

continue=False 
End If 
End Sub 



Name: 



All 



Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Docs\ForReportingResp 
Atty 

08/24/1999 10:25:38 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT form = "Project"; 



Subcomponents: 
Column Number: 



1 

resp_atty 
lastname := 

@RightBack(Resp_Atty ; " 
");firstname := 
@LeftBack(resp_atty; n 
");lastname + " " + firstname; 
20 Characters 



Column Title: 



Column Formula: 



Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 



No 
No 
No 



General 



No 
No 
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Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula- 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 1 00)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 



No 

11/03/1999 05:36:19 PM 

Ascending 

Lett 

None 

No 

2 

clientname 
ClientJMame 
13 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

3 

clientjno 
Client JMo 
5 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

4 . 
country 

ProjectCountry 

5 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 
No 



Justification: 
Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 



Left 
None 
No 
5 

matter_no 
Matter_No 
6 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

6 

matter_name 
Matter_Name 
20 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

7 

pdescrip 
PDescrip 
20 Characters 

No 
No 
m No 
General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 



8 

project 
Project 
44 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 



Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
JavaScript & HTML Code: 

[NoneJ 
LotusScript Code: 

(View) AN Docs\ForReportingRespAtty 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc » workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
•Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

viewr,0+48+0+0, n ERROR") 

lfOk%=1 Then 

continue=False 
End If 
End Sub 



Name: 



Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 

Subcomponents: 



All 

Docs\ForReportingStatu 
sTable 

08/24/1999 10:24:36 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = "Event" | Form 
= 'Task"; 
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Column Number: * 

Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 

Sorting: \ 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number. 
Column Title: 
Column Formula: 



1 

clients_billing 
clients_billing 
7 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

2 

clientname 
Client_Name 
13 Characters 

No 

No . 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

3 

client_no 
Client JMo 
5 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

4 

matter_no 
Matter_No 



Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format- 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 



6 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

5 

matter_name 

"Matter w + MatterJMame; 

7 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

6 

inventor 
inventor 
7 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

7 

resp_atty 
Resp_Atty 
5 Characters 
Comma 
No 



Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator. 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 



No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

8 

PComments 
PComments 
7 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

9 

event 
Event 

4 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

10 

task 

Task 

3 Characters 

No 
No 
No 

General 



Percentage (value * 100)%: No 
Parentheses on Negative Numbers: No 
Punctuated at Thousands: No 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification; 
Totals: 

Hide Detail Values: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) All DocsVForReportingStatusTable 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

view!",0+48+0+0/ t ERROR M ) 

lfOk%=1 Then 

continue=False 
End If 
End Sub 



11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

11 

next_action 
Next_Action 
7 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Lett 

None 

No 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 



All Docs\System Docs 

03/18/1999 02:29:46 PM 

[Not Assigned] 

No 

Disabled 
Expanded 
None 
Automatic 
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Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 



Never 
All Users 
No 

SELECT Form = "Routing" | 
Form = "(ProjectProfile)" | Form 
= "EvProjKeys" | Form = 
-Archive Profile"; 



Column Title: 


# 


Column Formula: 


@DocNumber 


Column Width: 


2 Characters 


List Separator 




Hidden: 


No 


Responses Only: 


No 


Icon:- 


No 


Number Format: 


General 


Percentage (value * 100)%: 


No 


Parentheses on Negative Numbers: 


No 


Punctuated at Thousands: 


No 


Time Format: 


11/03/1999 05:36:19 PM 


Sorting: 


No 


Justification: 


Lett 


Totals: 


None 


Hide Detail Values: 


No 


>lumn Number: 


2 


Column Title: 


Form 


Column Formula: 


Form 


Column Width: 


10 Characters 


List Separator 




Hidden: 


No 


Responses Only: 


No 


Icon: 


No 


Number Format: 


General 


Percentage (value * 100)%: 


No 


Parentheses on Negative Numbers: 


No 


Punctuated at Thousands: 


No 


Time Format: 


11/03/1999 05:36:19 PM 


Sorting: 


No 


Justification: 


Left 


Totals: 


None 


Hide Detail Values: 


No 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) Ail Docs\System Docs 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
End Sub 



Name: Archiving 

Alias: Archiving 

Last Modification: 09/02/1 999 04:50:22 PM 
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Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 

Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 

Subcomponents: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 



[Not Assigned] 
No 

Enabled 
Expanded 

Compute and Display at All 

Levels of View 

Automatic 

Never 

All Users 

No 

SELECT @Contains(Form; 
"Archive"); 

1 

[Not Assigned] 
@lf(@Contains(Form; "Log"); 
"Archive Logs"; "Archive 
Profile"); 
1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Descending, Categorized 

Left 

None 

No 

2 

[Not Assigned] 
©Created 
1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

3 

Description 

@lf(Form = "Archive Profile"; 
"Archive Profile" + " - Do Not 



233 



Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 
Formula: 



Action: 

Formula: 



Action: 
Formula: 



Delete"; Subject); 
30 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

Setup Archive... 
@PostedCommand([Compose]; 
"ArchiveProfile");@PostedCom 
mand([RefreshHideFormulasD; 
Archive Now 

key := "Archive Profile";AllDocs 
:= @DbLookup("" : "NoCache"; 
""; "Archiving"; Key; 
"ArchivePath");@lf(AIIDocs = ""; 
@Prompt([OK); "Error"; "You 
must specify a location for the 
archive database") : 
@Retum(6); 

@Success);AIIDocs2 := 
@If(@lsError(@DbLookup( ,m : 
"NoCache"; ""; "Archiving"; Key; 
"ArchivePath")); 
@Return(@Prompt([OK]; 
"Archive Now"; "Before you can 
begin archiving documents you 
need to fill out an Archive 
Profile. Please press VSetup 
Archive...V\")); 
"7;@lf(@Prompt([YESNO]; 
"Archiving"; "Are you sure you 
want to move documents to the 
archive database now?"); ""; 
@Retum(0));@PostedComman 
dflToolsRunMacroJ; "Periodic 
Archive");@PostedCommand([V 
iewRefreshFields]); 
Enable Scheduled Archiving 
AIIDocs := 

@lf(@lsError(@DbLookup(""; 
""; "Archiving"; "Archive Profile"; 
1)); @Retum(@Prompt([OK); 
"Archive Now"; "Before you can 
begin archiving documents you 
need to fill out an Archive 
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Profile. Please press \"Setup 
Archive...V\")); 

mi );@PostedCommand([AgentE 
nableDisable]; "Periodic 
Archive");@PostedCommand([R 
efreshHideFormulas]); 

Action: Disable Scheduled Archiving 

Formula: AIIDocs:= 

@lf(@lsError(@DbLookupC m ; 
,m ; "Archiving"; "Archive Profile"; 
1)); @Retum(@Prompt([OK]; 
"Archive Now"; "Before you can 
begin archiving documents you 
need to fill out an Archive 
Profile. Please press \"Setup 
Archive..A".")); 

"");@PostedCommand([AgentE 
nableDisable]; "Periodic 
Archive");@PostedCommand([R 
efreshHideFormulas]); 

JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(Action) Open Archive Db... 

Dim s As NotesSession 

Dim w As NotesUIWorkspace 

Dim sourcedb As NotesDatabase 

Dim view As NotesView 

Dim profile As NotesDocument 

Dim server As String 

Sub Click(Source As Button) 

On Error Goto ErrorRoutine 
'91 is Object Variable Not Set 

On Error 91 Resume Next 
'441 2 is the notes database does not exist 

On Error 441 2 Goto DatabaseNotExistError 

Set s = New NotesSession 

Set sourcedb = s.CurrentDatabase 

Set view = sourcedb. GetViewfArchiving") 

key = "Archive Profile" 

Set profile = view.GetDocumentByKey(key) 

If profile Is Nothing Then 

Messagebox "There is no Archive Db for this database.", 0 + 64, "Archive" 
Exit Sub 

End If 

ArchivePath = profile.ArchivePath 

ArchiveServer = profile.ArchiveServer 

If (ArchivePath(0) = -) Then 

Messagebox "The archive database cannot be found. Click on the Setup Archive 

button to create a new archive 
database." ,16, "Data base not 
found" 

Exit Sub 
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End If 

Set w = New NotesUIWorkspace 

Call w.OpenDatabase(ArchiveServer(0), ArchivePath(O), MW , M 1") 
Exit Sub 
ErrorRoutine: 

Messagebox "Unexpected condition: tt & Err & " - " & Error 

Exit Sub 
DatabaseNotExistErron 

Messagebox "The archive database cannot be found. Click on the Setup Archive button to 

create a new archive 
database.",! 6,"Database not 
found" 

Exit Sub 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 



By Resp Attorney\Event 

08/11/199912:19:47 PM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = "Event" & 
(TEArchive = "no" | TEArchive = 

nw ); 
1 

[Not Assigned] 

@lf(resp_atty = ""; "Project Not 
Assigned"; 

@RightBack(@Name([CN]; 
resp_atty); " ") + ", " + 
@LeftBack(@Name([CN]; 
resp_atty); B ")); 
1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 
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Column Number 

Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: . 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 



2 

[Not Assigned] 
@Name([CN]; resp_atty); 
1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending, Categorized 

Left 

None 

No 

3 

Event Date 
EventDate 
10 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 

Ascending 

Left 

None 

No 

4 

Event 
PDescrip 
15 Characters 

No 
No 
No 

Genera! 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

5 

Project 
Project 



Column Width: 
List Separator. 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 



15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

6 

Matter Name & No. 
Matter_Name + H [" + 
Matter.No + T; 

16 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

7 

Client Name & No. 
Client_Name + "[•* + Client JMo 

+ T; 

28 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 
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(View) By Resp Attorney\Event 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox('You are not allowed to paste documents into a 

viewr t 0+48+0+Q, M ERROR") 

lfOk%=1Then 

continue=False 
End If 
End Sub 



Name: 



Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format 

Sorting: 

Justification: 



By Resp Attorney\Event- 
Task 

08/24/1999 09:48:20 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = fEvent" : 
"Task") & (TEArchive = "no" | 
TEArchive = ""); 



[Not Assigned] 

@lf(resp_atty = "Project Not 
Assigned"; 

@RightBack(@Name([CN]; 
resp_atty); n ") + ■ w + 
@LeftBack(@Name([CN]; 
resp_atty); M ")); 
1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Lett 
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Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number. 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value* 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
„ Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format 

Sorting: 

Justification: 



None 

No 

2 

[Not Assigned] 
@Name([CN]; resp_atty); 

I Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending, Categorized 

Left 

None 

No 

3 

Event/Task Date 

@lf(Form = "Event"; EventDate; 

cre_date); 

II Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 

Ascending 

Left 

None 

No 

4 

Event/Task 

@lf(Foim = "Event"; "Event" + " 
- " + PDescrip; Task" + ■ - n + 
Task); 

22 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 
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Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator. 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 1 00)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 



None 

No 

5 

Project 
Project 

15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

6 

Matter Name & No. 
Matter_Name + n f + 
Matter_No + "] w ; 

16 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Lett 

None 

No 

7 

Client Name & No. 
Clientjslame + + Client No 

+ T; 

28 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Lett 

None 
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Hide Detail Values: No 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) By Resp Attorney\Event-Task 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesU Document 
Set uidoc = workspace. CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=MessageboxfYou are not allowed to paste documents into a 

viewr.O^S+O+O/ERROR") 

lfOk%=1Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 
Subcomponents: 
Column Number 
Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 



By Resp Attorney\Matter 

03/18/1999 02:28:43 PM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT ((Form = "Matter")); 



[Not Assigned] 

@lf(resp_atty = ""; "Matter Not 
Assigned"; 

@RightBack(@Name([CN]; 
resp_atty); " ") + " + 
@LeftBack(@Name([CN]; 
resp_atty); " ")); 
1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 
Ascending 
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Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: . 
Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 



Left 
None 
No 
2 

[Not Assigned] 
@Name([CN]; resp_atty); 
1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending, Categorized 

Left 

None 

No 

3 

Matter Name & No. 
Matterjsjame + ■ f + 
MatterJMo + T; 
38 Characters 

No 
No 
No 

General 
No 
No. 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

4 

[Not Assigned] 

n n 

3 Characters 

No 
No 
No 

General 
No 
No. 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 



Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 
Formula: 



No 
5 

Client Name & No. 
Client_Name + " [" + ClientJMo 

50 Characters 

No 
No 
* No 
General 
No 
No 
No 

11/03/1999 05:36:19 PM 
No 
Left 
None 
No 

Create New Project 

TList := @DbColumn(" w ; ww : ""; 
"ProjectTypes"; 1);List := 
@lf(@lsError(TList); 
@Return(@Prompt([OK]; 
"Error"; "An error has occured. 
Please try again.")); 
TList);ENVIRONMENT 
SubType := 

@Prompt([OKCANCELLIST]; 
"New Project"; "Choose one of 
the following:"; @Subset(List; 
1); List);@lf(Form = "Matter"; 
@Command([Compose]; ""; 
"Project"); @Prompt([OK]; 
"Error; "Please select the 
associated Matter before 
creating a new Project.")); 

JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) By Resp Attorney\Matter 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace. CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

view!",0+48+0+0,"ERROR") 

lfOk%=1 Then 
continue=False 
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End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 
Subcomponents: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%; 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 



By Resp 

Attorney\Project 

04/20/1999 02:05:26 PM 

[Not Assigned] 

No 

Enabled 

Expanded . 

None 

Automatic 

Never 

AH Users 

No 

SELECT ((Form = "Project")); 
1 

[Not Assigned] 

@lf(resp_atty = ""; "Project Not 
Assigned"; 

@RightBack(@Name([CN]; 
resp_atty); " ") + ", " + 
@LeftBack(@Name([CN]; 
resp^atty);"")); 
1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Lett 

None 

No 

2 

[Not Assigned] 
@Name([CN]; resp_atty); 
1 Characters 

No 
No 
No 

General 
No . 
No 
No 

11/03/1999 05:36:19 PM 
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Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 1 00)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 



Ascending, Categorized 

Left 

None 

No 

3 

Projects 
Project + " " + 
@Right(ProjectCountry; 4); 
24 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No. 

4 

Matter Name & No. 
MatterJMame + " f + 
Matter.No t T; 
22 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

5 

[Not Assigned] 

n n 

1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 
No 



Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon; 

Number Format: . 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 
Formula: 



Action: 

Formula: 



JavaScript & HTML Code: 



Left 
None 
No 
6 

Client Name & No. 
Client_Name + • p + Client No 

+ T; 

21 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

7 

Project Description 

PDescrip 

37 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

Create New Event 
@lf(Form = "Project"; 
©Command ([Compose]; 
"Event"); @Prompt([OKJ; 
"Error; "Please select the 
associated Project before 
creating a new Event.")); 
Create New Task 
@lf(Form = "Project"; 
@Command([Compose]; 
"Task"); @Prompt([OK]; "Error"; 
"Please select the associated 
Project before creating a new 
Task.")); 
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[NoneJ 
LotusScript Code: 

(View) By Resp Attorney\Project 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=sesston.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox('You are not allowed to paste documents into a 



view! n l 0+48+0+0,"ERROR") 



If Ok%=1 Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



By Resp AttorneyVTask 

08/24/1999 09:46:46 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = Task" & 
(TEArchive = "no" | TEArchive = 

""); 



Subcomponents: 
Column Number: 

Column Title: 



1 

[Not Assigned) 

@lf(resp_atty = ""; "Project Not 
Assigned"; 

@RightBack(@Name([CN]; 
resp_atty); " ") + ", " + 
@LeftBack(@Name([CN]; 
resp_atty); " ")); 
1 Cha&cters 



Column Formula: 



Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 



11/03/1999 05:36:20 PM 
Ascending 



Yes 

No 

No 



General 



No 
No 
No 
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Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands- 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format- 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 



Left 
None 
No 
2 

[Not Assigned] 
@Name([CN]; resp_atty); 
1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

3 

CreDate 
cre_date 
7 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 

Ascending 

Lett 

None 

No 

4 

Task 
Task 

20 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 



Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
• Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 



[Not Assigned] 

n n 

1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

6 

Hours 
hours 

4 Characters 

No 
No 
No 

Fixed (2 Decimal Places) 

No 

No 

No 

11/03/1999 05:36:20 PM 

No 

Left 

Total 

No 

7 

Project 
Project + " " + 
@Right(ProjectCountry; 4); 
15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

8 

Matter Name & No. 
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Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



MatterJMame + 1 
Matter_No + J; 
19 Characters 



No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

9 

Client Name & No. 
Client_Name + " f + Client_No 
+ T; 

20 Characters 



No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 



Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) By Resp AttomeyVTask 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=MessageboxCYou are not allowed to paste documents into a 

view! tt l 0+48+0+0 I n ERROR") 

lfOk%=1Then 

continue=False 
End If 
End Sub 
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Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index 
View May Be Used By: 
Time Relative Formulais: 
Selection Formula: 



Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 1 00)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals- 
Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: * 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Calendar View\Event 

07/28/1999 10:02:28 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT (Form = "Event") & 
(TEArchive = "no" | TEArchive = 

1 

Date 

EventDate 
6 Characters 

Yes 

No 

No 

General . 
No 
No 
No 

11/03/1999 

Ascending 

Lett 

None 

No 

2 

Event 

Status + ": " + PDescrip; 
15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

3 

Client 

Client_Name + " [" + Client_No 

+ T; 
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Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

4 

Matter 

Matterjslame + " [" + Matter_No 

+ T; 

10 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

5 

Responsible 

@Name([CNJ; resp_atty); 
13 Characters 

No 
No 
No 

General 
.No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

6 

Priority 

@lf(Status != "Completed"; 
"Priority is " + Priority; "Priority 
was w + Priority); 
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Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 
Formula: 

Action: 
Formula: 

Action: 

Formula: 

Action: 
Formula: 



7 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

Two Days 

@Command([CalendarFormat]; 
One Week 

@Command([CalendarFormat]; 
Two Weeks 

@Command([CalendarFormatJ; 
"14"); 

One Month 

@Command([CalendarFormat]; 
"30"); 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) Calendar View\Event 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

' - view! ,, ( 0+48+0+0/ , ERROR ,, ) 

If Ok%=1 Then 

continue=False 
End If 
End Sub 



Name: 



Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 



Calendar View\Event & 
Tasks 

08/24/1999 10:14:27 AM 

[Not Assigned] 

No 

Enabled 
Expanded 
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Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
.Column Title: 
Column Formula: 



Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator 



None . 
Automatic 
Never 
All Users 
No 

SELECT (Form = "Event" | Form 
= 'Task") & (TEArchive = "no" | 
TEArchive = ""J; 

1 

Date 

@lf(form = "Event"; EventDate; 

cre_date); 

6 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 

Ascending 

Left 

None 

No 

2 

Event/Task 

@lf(Form = "Event"; Status + H 

Event" + ": " + PDescrip; 

@lf(Form = 'Task"; Status + " 

Task" + " + Task; "")); 

27 Characters 

New Line 

No 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

3 

Client 

Client_Name + n [" + Client No 

+ T; 

17 Characters 
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Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula:. 



Column Width: 
List Separator. 



No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Lett 

None 

No 

4 

Matter 

MatterJMame + " [" + Matter_No 

+ T; 

13 Characters 

New Line 

No 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Lett 

None 

No 

5 

Responsible 

@Name([CN]; resp_atty); 
15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

6 

Priority 

@lf(Status != "Completed"; 
"Priority is " + Priority; "Priority 
was " + Priority); 
7 Characters 
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Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 
Formula: 

Action: 
Formula: 

Action: 
Formula: 

Action: 
Formula: 



No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

Two Days 

@Command([CalendarFormat]; 
"2"); ; 
One Week 

©CommandflCalendarFormat]; 
"7"); 

Two Weeks 

©Command ([CalendarFormat]; 
"14"); 

One Month 

@Command([CalendarFormat]; 
"30"); 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) Calendar View\Event & Tasks 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesU I Workspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentPatabase 
'Stop pasting documents into views 

Ok%=Messagebox( w You are not allowed to paste documents into a 

viewr i 0+48+0+0/ , ERROR M ) 

lfOk%=1Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 



Calendar ViewMask 

07/28/1999 10:02:30 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 
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View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 



All Users 
No 

SELECT (Form = 'Task") & 
(TEArchive = "no* 1 1 TEArchive = 

HW ); 

1 

CreDate 
cre_date 
6 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 

Ascending 

Left 

None 

No 

2 

Task 

Status + ": ■ + Task; 
15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Lett 

None 

No 

3 

Client 

Client_Name + n [" + Client JMo 

+ T; 

15 Characters 

No 
No 
No 

General 
No 
No 
No 
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Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 1 00)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 



11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

4 

Matter 

Matter_Name + n [" + Matter_No 
+ T: 

10 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

5 

Responsible 

@Name([CN]; resp_atty); 
17 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

6 

Priority 

@lf(Status != "Completed"; 
"Priority is " + Priority; "Priority 
was " + Priority); 
6 Characters 

No 
No 
No 

General 
No 
No 
No 
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Action: 
Formula: 



Action: 



Action: 



Time Format: . 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 



Formula: 



Formula: 



11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

Two Days 

@Command([CalendarFormat]; 

"2"); 

One Week 

@Command([CalendarFormatJ; 

"7"); 

Two Weeks 

@Command([CalendarFormatJ; 



Action: 



Formula: 



"14"); 

One Month 

@Command([CalendarFormat]; 
"30"); 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) Calendar ViewVTask 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

bk%=Messagebox("You are not allowed to paste documents into a 



view!" t 0+48+0+0,"ERROR") 



lfOk%=1 Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Client View 1 

07/28/1999 10:02:30 AM 

[Not Assigned] 

Yes 

Disabled 

Collapsed 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = "ClientForm" | 
(Form = "Event" & (TEArchive = 
"" | TEArchive = "no")) | Form = 
"Project" | (Form = "Task" & 
(TEArchive = "no" | TEArchive = 



260 



Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value* 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 



"")) | Form = "Matter"; 
1 

[Not Assigned] 
@Text(Client_Name) + " [" + 
@Text(Client_No) * T; 
1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

2 

[Not Assigned] 
@lf(Form = "Matter"; 
MatterjsJame; ""); 
1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

3 

[Not Assigned] 

@lf(Form = "Event"; EventDate; 
@lf(Form = "Task"; cre_date; 
"")); 

1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 
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Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 



Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 



Ascending 

Lett 

None 

No 

4 

[Not Assigned] 
inhouse_disclos 
1 Characters 

Yes 

No 

Yes 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

5 

@lf(Form = "Matter; Form + " - 
" + MatterJMame + " [ n + 
Matter_No + "]"; @|f(Form = 
"Project"; Form + " - " + Project 
+ " " + @Right(ProjectCountry; 
4) + " - " + PDescrip; @lf(Form 
= "Event"; @Text(EventDate) + 
" - w + Form + " - " + Event; 
@lf(Form = "Task"; 
@Text(cre_date) + " - " + Form 
+ " - " + Task; "")))); 
1 Characters 

No 

Yes 

No 

General 
No 
No 
No 

11/03/1999 

Ascending 

Left 

None 

No 

6 

[Not Assigned] 
"Client Data Form" 
42 Characters 

No 
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Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 

Formula: 
Action: 

Formula: 

Action: 
Formula: 



Action: 
Formula: 



Action: 

Formula: 



Action: 
Formula: 



No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

Edit Selected 

@Command([EditDocumentD; 
Add A New Client 
@Command([Compose]; 
"ClientForm"); 
Create New Matter 
@lf(Form = "ClientForm"; 
@Command([Compose]; 
"Matter"); @Prompt([OK]; 
"Error; "Please select the 
associated Client before 
creating a new Matter.")); 
Create New Project 
TList := @lf(Form = "Matter; 
@DbColumnC ro ; : 
"ProjectTypes"; 1); "");List := 
@lf(Tlist = ""; 
@Return(@Prompt([OK]; 
"Error; "Please select the 
associated Matter before 
creating a new Project.")); 
TList);ENVIRONMENT 
SubType := 

@Prompt([OKCANCELLISTJ; 
"New Project"; "Choose one of 
the following:"; @Subset(List; 
1); List);@lf(Form = "Matter; 
@Command([Compose]; ""; 
"Project"); @Prompt(lOKl; 
"Error; "Please select the 
associated Matter before 
creating a new Project.")); 
Create New Event 
@lf(Form = "Project"; 
@Command([Compose]; 
"Event"); @Prompt([OK); 
"Error; "Please select the 
associated Project before 
creating a new Event.")); 
Create New Task 
@lf(Form = "Project"; 
@Command([Compose]; 
Task 11 ); @Prompt([OK]; "Error; 
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"Please select the associated 
Project before creating a new 
Task/')); 

JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(View) Client View 1 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=MessageboxfYou are not allowed to paste documents into a 

view!",0+48+0+0, n ERROR") 

lfOk%=1 Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 



Client View 2 

07/28/199910:02:31 AM 

[Not Assigned] 

No 

Disabled 

Collapsed 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = "ClientForm" | 
(Form = "Event" & (TEArchive = 
"" | TEArchive = "no")) | Form = 
"Project* | (Form = "Task" & 
(TEArchive = "no" | TEArchive = 
"")) | Form = "Matter"; 

1 

[Not Assigned] 

@Text(Client Name) + " [" + 
@Text(Client_No) + T; 
1 Characters 

No 
No 
No 

General 

No 

No 
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Punctuated at Thousands: 
Time Format- 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 



Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value ■* 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 



No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

2 

[Not Assigned] 
@lf(Form = "Matter"; 
Matter_No; MM ); 
1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Lett 

None 

No 

3 

[Not Assigned] 

@lf(Form = "Event"; EventDate; 
@lf(Form = "Task"; cre_date; 

")>; \ 

1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 

Ascending 

Left 

None 

No 

4 

[Not Assigned] 
inhouse_disclos 
1 Characters 

Yes 

No 

Yes 

General 

No 

No 
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Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 

Formula: 
Action: 

Formula: 



No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

5 

@lf(Form = "Mattel; Form + " - 
" + Matter_Name + " f + 
Matter_No + T; @lf(Form = 
"Project"; Form + " - " + Project 
+ - " + @Right(ProjectCountry; 
4) + " - ■ " + PDescrip; @lf(Form 
= "Event"; @Text(EventDate) + 
"-" + Form + "-" + Event; 
@lf(Form = "Task"; 
@Text(cre_date) + • - " + Form 
+ "-" + Task; "")))); 
1 Characters 

No 

Yes 

No 

General 
No 
No 
No 

11/03/1999 

Ascending 

Lett 

None 

No 

6 

[Not Assigned] 
"Client Data Form" 
42 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Lett 

None 

No 

Edit Selected 

@Command([EditDocument]); 
Add A New Client 
@Command([Compose]; 
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Action: 
Formula: 



Action: 
Formula: 



Action: 
Formula: 



Action: 
Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(View) Client View 2 

Sub Querypaste(Source As Notesuiview; Continue As 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocumerit 
Set uldoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 



"ClientForm"); 
Create New Matter 
@lf(Form = "ClientForm"; 
@Command([Compose]; 
"Matter"); @Prompt([OK]; 
"Error; "Please select the 
associated Client before 
creating a new Matter.")); 
Create New Project 
TList := @lf(Form = "Matter"; 
@DbColumnr; nw : ""; 
"ProjectTypes"; 1); nn );List := 
@lf(Tlist = ""; 
@Return(@Prompt([OK]; 
"Error"; "Please select the 
associated Matter before 
creating a new Project.")); 
TList);ENVIRONMENT 
SubType := 

@Prompt([OKCANCELLIS7]; 
"New Project"; "Choose one of 
the following:"; @Subset(List; 
1); List);@lf(Form = "Matter; 
@Command([Compose]; ""; 
"Project"); @Prompt([OKl; 
"Error; "Please select the 
associated Matter before 
creating a new Project.")); 
Create New Event 
@lf(Form = "Project"; 
@Command([Compose]; 
"Event"); @Prompt([OK]; 
"Error; "Please select the 
associated Project before 
creating a new Event.")); 
Create New Task 
@lf(Form = "Project"; 
@Command([Compose]; 
"Task"); @Prompt([OKJ; "Error; 
"Please select the associated 
Project before creating a new 
Task.")); 



Variant) 
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'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

view! , \0+48+0+0/ , ERROR") 

If Ok%=1 Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator. 
Hidden: 

Responses Only: 



Client View by Number! 

07/28/1999 10:03:23 AM 

[Not Assigned] 

No 

Disabled 

Collapsed 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = "ClientForm" | 
(Form = "Event" & (TEArchive = 
| TEArchive = "no")) | Form = 
"Project" | (Form = Task" & 
(TEArchive = "no" | TEArchive = 
"")) |Form = "Matter; 

1 

[Not Assigned] 

T + @Text(Client_No) + "] " + 

@Text(ClieritJ\lame); 

1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Lett 

None 

No 

2 

[Not Assigned] 
@If(Form = "Matter"; 
Matter_Name; ""); 
1 Characters 

Yes 
No 
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Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 



Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

3 

[Not Assigned] 

@lf(Form = "Event"; EventDate; 
@lf(Form = Task"; cre_date; 

1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 

Ascending 

Left 

None 

No 

A 

[Not Assigned] 
Form 

1 Characters 

Yes 

No 

Yes 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

5 

[Not Assigned] 

@lf(Form = "Matter; Form + n - 
" + MatterJMame + ■ [" + 
Matter_No + "]"; @lf(Form = 
"Project"; Form + ■ - " + Project 
+ " " + @Right(ProjectCountry; 
4) + " - " + PDescrip; @lf(Form 
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Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 1 00)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 
Formula: 

Action: 

Formula: 



Action: 
Formula: 



= "Event"; @Text(EventDate) + 
" - n + Form + " - ■ + Event; 
@lf(Form = "Task"; 
@Text(cre_date) + " - " + Form 
+ "- w + Task; "")))); 
1 Characters 

No 

Yes 

No 

General 
No 
No 
No 

11/03/1999 

Ascending 

Lett ■ 

None 

No 

6 

[Not Assigned] 
"Client Data Form" 
18 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

Add A New Client 

@Command([Compose]; 
"ClientForm"); 
Create New Matter 
@lf(Fonm = "ClientForm"; 
@Command([Compose]; 
"Matter); @Prompt(IOK]; 
"Error; "Please select the 
associated Client before 
creating a new Matter.' 1 )); 
Create New Project 
TList := @lf(Form = "Matter; - 
@DbColumn(""; "" : n "; 
"ProjectTypes"; 1); ,w );List := 
@lf(Tlist = ""; 
@Retum(@Prompt([OK]; 
"Error; "Please select the 
associated Matter before 
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creating a new Project.")); 
TList);ENVIRONMENT 
SubType := 

@Prompt([OKCANCELLIST]; 
"New Project"; "Choose one of 
the following:"; @Subset(Llst; 
1); List);@lf(Form = "Matter"; 
@Command([Compose]; ""; 
"Project'); @Prompt([OKl; 
"Error"; "Please select the 
associated Matter before 
creating a new Project.")); 
Action: Create New Event 

Formula: @lf(Form = "Project"; 

@Comma nd ([Compose] ; 
"Event"); @Prompt([OK]; 
"Error"; "Please select the 
associated Project before 
creating a new Event.")); 
Action: Create New Task 

Formula: @lf(Form = "Project"; 

©Comma nd([Compose] ; 
"Task"); @Prompt([OKJ; "Error; 
"Please select the associated 
Project before creating a new 
Task.")); 

JavaScript & HTML Code: 

[None] t m . 
LotusScript Code: 

(View) Client View by Number! 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace.CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

view! n ,0+48+0+0,"ERROR") 

lfOk%=1 Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 



Client View by Number2 

07/28/1999 10:03:23 AM 

[Not Assigned] 

No 

Disabled 

Collapsed 

None 
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Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers- 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 



Automatic 
Never 
All Users 
No 

SELECT Form = "ClientForm" | 
(Form = "Event" & (TEArchive = 
| TEArchive = "no")) | Form = 
"Project" | (Form = "Task" & 
(TEArchive = "no" | TEArchive = 
"")) | Form = "Matter; 

1 

[Not Assigned] 

T + @Text(Client_No) + "] " + 

@Text(ClienLName); 

1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

2 

[Not Assigned] 
@lf(Form = "Matter; 
Matterjslo; "*•); 
1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

3 

[Not Assigned] 

@lf(Form = "Event"; EventDate; 
@lf(Form = Task"; cre_date; 

"")); 

1 Characters 
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List Separator 
Hidden: 

Responses Only: 
icon: 

Number Format: 

Percentage (value * 1 00)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 



Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: . 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 



Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 

Ascending 

Left 

None 

No 

4 

[Not Assigned] 
Form 

1 Characters 

Yes 

No 

Yes 

General 

No 

No 

No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

5 

[Not Assigned] 

@lf(Form = "Matter; Form + " - 
" + Matter_Name + " [" + 
Matter_No + Y; @lf(Form = 
"Project"; Form + " - " + Project 
+ " " + @Right(ProjectCountry; 
4) + " - " + PDescrip; @lf(Form 
= "Event"; ©Text(EventDate) + 
"-" + Form + "-" + Event; 
@lf(Form = "Task"; 
@Text(cre_date) + " - " + Form 
+ "-" + Task; "")))); 
1 Characters 

No 

Yes 

No 

General 
No 
No 
No 

11/03/1999 
Ascending 
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Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 
Formula: 

Action: 
Formula: 



Action: 
Formula: 



Action: 
Formula: 



Left 
None 
No 
6 

[Not Assigned] 
"Client Data Form' 1 
18 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

Add A New Client 

@Command([Compose]; 
"ClientForm"); 
Create New Matter 
@lf(Fdrm = "ClientForm"; 
@CommandQCompose]; 
"Matter); @Prompt([OK]; 
"Error; "Please select the 
associated Client before 
creating a new Matter.")); 
Create New Project 
TUst := @lf(Form = "Matter"; 
@DbColumnC w ; : ""; 
"ProjectTypes"; 1); "");List := 
@lf(Tlist = ""; 
@Retum(@Prompt([OK]; 
"Error"; "Please select the 
associated Matter before 
creating a new Project.")); 
TList);ENVIRONMENT 
SubType := 

@Prompt([OKCANCELLIST]; 
"New Project"; "Choose one of 
the following:"; @Subset(List; 
1); Ust);@lf(Form = "Matter; 
@Command([Compose]; 
"Project"); @Prompt([OKJ; 
"Error; "Please select the 
associated Matter before 
creating a new Project.")); 
Create New Event 
@lf(Form = "Project"; 
@Command([Compose]; 
"Event"); @Prompt([OK]; 
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Action: 
Formula: 



"Error; "Please select the 
associated Project before 
creating a new Event")); 
Create New Task 
@lf(Form = "Project"; 
©Comma nd ([Compos e] ; 
"Task"); @Prompt([OK]; "Error; 
"Please select the associated 
Project before creating a new 
Task.")); 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) Client View by IMumber2 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 



view!",P+48+0+0,"ERROR") 



If Ok%=1 Then 

continue=False 
End If 
End Sub 



Name: 



Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Events and 
Tasks\Completed 

07/28/1999 10:03:26 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT (Form = Task" & 
TEArchive = "yes") | (Form = 
"Event" & TEArchive = "yes"); 



Subcomponents: 
• Column Number: 
Column Title: 



1 

[Not Assigned] 

Client_Name + " [" + Client_No 
♦T 

1 Characters 



Column Formula: 



Column Width: 
List Separator. 
Hidden: 



No 
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Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format; 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

2 

[Not Assigned] 
TEDateComplete 
1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

3 

Type 
Form 

4 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

4 

Events and Tasks 
@lf(Form = Task"; task; 
@lf(Form = "Event"; 
@lf(CopyrightEvent != ""; 
CopyrightEvent; 
@lf(PatentEvent != ""; 
PatentEvent; 

@lf(T rademarkEvent != w 



Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 



TrademarkEvent; 
@lf(CounselEvent != m '; 
CounselEvent; 
@lf(LitigationEvent != m ; 
LitigationEvent; @lf(OtherEvent 
!= m '; OtherEvent; WM )))))); "")); 
22 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1 999 05:36:20 PM 

Ascending 

Lett 

None 

No 

5 

[Not Assigned] 

WW 

1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

6 

Responsible 

@Name([CN]; resp_atty); 
14 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 
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Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 



7 

Status 
Status 

7 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

8 

Priority 
Priority 
5 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

9 

Date 

@lf(Form = "Event"; EventDate; 

cre_date); 

13 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 

No 

Left 

None 

No 

10 

Date Completed/Retired 
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Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 



None 
No 



No 
Left 



No 
No 
No 



General 



No 
No 
No 



11/03/1999 



TEDateComplete 
16 Characters 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) Events and Tasks\Completed 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
•Stop pasting documents into views 

Ok%=Messagebox("Xou are not allowed to paste documents into a 



lfOk%=1 Then 
continue=False 

End If 
End Sub 
(Action) Make Document Active 
Sub Click(Source As Button) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace.CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

Dim view As Notes View 

Dim doc As NotesDocument 

Dim yesOrNo As Integer 

Dim OkCancel As Integer . 

'Get the selected documents 

Set collection = db.UnprocessedDocuments 

Setdoc = collection.GetFirstDocument 

If doc Is Nothing Then 
Exit Sub 

End If 

'Make sure user wants to make the event/task active 

yesOrNo=Msgbox("Are you sure you want to make this Event/Task active?", 4 + 32 + 256 



view! w i 0+48+0+0 t ,, ERROR ,, ) 



279 



+ 0, "Make Active?") 

If yesOrNo=7 Then 

Exit Sub 
End If 

'Get the values from the document and reset them to active 
If doc.Form(0)="Event" Then 

doc.TEDateComplete="" 

doc.TEArchive="no" 

doc.Retire_By= n " 

doc.UnHideEV="no" 

doc.CtosingEV="no" 

Set OldHistltem=doc.GetFirstltemC , History w ) 

NewHist$ = "Modified on " + Date$+" "+Time$ + " by " + Session.CommonUserName 
update$="N" 

NewHist$= NewHist$ & Chr(010) + "Event was Re-Activated on: "+ Date$ 
update$="Y M 

'Append the new changes to the History 
doc.Statusjl ="Modified M 

doc.History=NewHist$ & Chr(010) +"- — 

«& 

Chr(01 0) + OldHistltem.Text 

doc.ComputeWrthForm True, False 
doc.save True, True 

Msgbox The selected Event has been successfully re-activated. Refresh the View by 

pressing the 'F9' key.", 
0+64+0+0, "Event Re-Activated" 

End If 

'Do the same if the doc is a task 
If doc.Form(0)="Task" Then 

doc.TEDateComplete-'" 

doc.TEArchh/e="no" 

doc.RACIosed="no n 

Set RASig ltem=doc. G etFirst I tem("RA_Sig") 

Set IPDSigltem=doc.GetFirstltem("IPD_Sig") 

Set Sectionlteml =doc.GetFirstltem("$Sig_Untitled_Section_1 ") 

Set SectionItem2=doc.GetFirstltem( 0 $Sig_Untitled_Section2 ,, ) 

RASigltem.lsSigned=False 

I PDSig Ke m. IsSig ned= False 

Sectionlteml JsSigned=False 

Sectionltem2.lsSigned=False 

Sectionltem2.lsEncrypted=False 

Sectionlteml .lsEncrypted=False 

Call Sectionlteml .remove 

Call Sectionltem2.remove 

doc.RA_Sig= ,m 

doc.lPDSig="" 

doc.UnHideRA="no M 

doc.UnHideDM="no" 

doc.DocDateComplete="" 

Set OldHistltem^doc.GetRrstltemCHistory") 

NewHist$ = "Modified on " + Date$+" "+Time$ + " by " + Session.CommonUserName 
update$="N" . 

NewHist$= NewHistS & Chr(010) + "Task was Re-Opened on: "+ Date$ & Chr(010) + " 

All Electronic Signatures were 
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cleared" 

update$="Y tt 

•Append the new changes to the History 
doc.Status_1 ="Modified" 

doc.History=NewHist$ & Chr(010) +"-« 

« & 

Chr(010) + OldHistltem.Text 

doc.ComputeWlthForm True, False 
doc.save True, True 

Msgbox "The selected Task has been successfully re-opened. Refresh the View by 

pressing the ^9' key.", 

_ . * 0+64+0+0, 'Task Re-Opened" 

End If 

End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number. 
Column Title: 
Column Formula: 



Events and 
Tasks\OpenByClient 

07/28/1999 10:03:27 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None . 

Automatic 

Never 

All Users 

No 

SELECT (Form = Task" & 
Status = "Open") | (Form = 
"Event" & Status = "Open"); 

1 

[Not Assigned] 

ClientJMame + " [*' + Client No 

+ T; 

1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

'2 

[Not Assigned] 
@DocNumber 
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Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 



Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 1 00)%: 
Parentheses on Negative Numbers: 



1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

3 

Type 
Form 

4 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 
No 
. Left 
None 
No 
4 

Events and Tasks 
@lf(Form = Task"; task; 
@lf(Form = ^Event"; 
@lf(CopyrightEvent != ""; 
CopyrightEvent; 
@lf(PatentEvent != 
PatentEvent; 
@lf(TrademarkEvent != 
TrademarkEvent; 
@lf(CounselEvent != ""; 
CounselEvent; 
@lf(LitigationEvent != 
LitigationEvent; @lf(OtherEvent 
!= ~; OtherEvent; "")))))); "")); 
18 Characters 

No 
No 
No 

General 

No 

No 
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Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value* 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 1 00)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 



No 

11/03/1999 05:36:20 PM- 

Ascending 

Left 

None 

No 

5 

[Not Assigned] 

n it 

1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

6 

Responsible 

@Name([CN]; resp_atty); 
14 Characters 

No 
No 
No 

General 
NO 
No 
No 

11/03/1999 05:36:20 PM 

Descending 

Left 

None 

No 

7 

Status 
Status 

7 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 
No 



Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 



Lett 
None 
No 
8 

Priority 
Priority 
8 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Lett 

None 

No 

9 

Date 

@lf(Form = "Event"; EventDate; 
cre_date); 
7 Characters 



Column Width: 
List Separator 

Hidden: No 
Responses Only: No 
Icon: No 
Number Format: General 
Percentage (value * 100)%: No 
Parentheses on Negative Numbers: No 
Punctuated at Thousands: No 
Time Format: 11/03/1999 
Sorting: No 
Justification: Left 
Totals: None 
Hide Detail Values: No 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) Events and TasksVOpenByClient 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace.CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

'Stop pasting documents into views 

Ok%=MessageboxfYou are not allowed to paste documents into a 

viewr,0+48+0+0/ , ERROR") 

lfOk%=1 Then 
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continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
. View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 

Subcomponents: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 



RoutView 

07/05/1999 02:15:28 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT (Form = "Event") & 
print = "yes"; 

1 

Task 

@DocNumber 
15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

2 

Client 

ClientJMame 
15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 



Action: 



Two Days 

@Command([CalendarFormat]; 
"2"); 

One Week 

@Command([CalendarFormat]; 
"7"); 

Two Weeks 

@Command([CalendarFormat]; 
One Month 

@Command([CalendarFormat]; 
"30"); 



Formula: 



Action: 



Formula: 



Action: 



Formula: 



Action: 



Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(View) RoutView 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace. CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 



lfOk%=1 Then 

continue=False 
End If 
End Sub 



view!" f 0+48+0+0 t "ERROR") 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Tasks\By Client 

07/28/1999 10:03:33 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = Task" & 
(TEArchive = "no" | TEArchive = 



Subcomponents: 
Column Number: 
Column Title: 
Column Formula: 



1 

[Not Assigned] 

GlientJMame + " [" + Client_No 
+ T + "Tasks"; 
2 Characters 



Column Width: 
List Separator 
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Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 
Column Width: 
List Separator. 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 



No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Lett 

None 

No 

2 

CreDate 
cre_date 
7 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 

Ascending 

Lett 

None 

No 

3 

Task 

Form = "TaslOTask" + " 
Task; 

25 Characters 

No 
. No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

4 

Responsible Attorney 
@Name([CN]; resp_atty); 
16 Characters 

No 
No 



Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values:, 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(View) Tasks\By Client 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWortepace 



No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

5 

Project 
Project + n * + 

@Right(ProjectCountry; 4); 
15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

6 

Matter Name & No 
Matter_Name + " [" + 
MatterJMo + T; 
36 Characters 



No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 
No 
Left 
None 
No 
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Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting. documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

view!^0+48+0+0;ERROR , ) 

lfOk%=1 Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 



Tasks\By RespAtty 

07/28/199910:03:34 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = Task" & 
(TEArchive = "no" | TEArchive : 



[Not Assigned] 
@Name([CN]; resp_atty); 
1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

2 

Date 
cre_date 
7 Characters 



No 
No 
No 
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Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 



General 
No 
No 
No 

11/03/1999 

Ascending 

Lett 

None 

No 

3 

Task 

Form = , Task M ; , Task w + n - " 
Task; 

25 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

4 

Project 
Project + " " + 
@Right(ProjectCountry; 4); 
15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 
No 

Left * 
None 
No 
5 

Matter 

Matter_Name + " [" + 
Matter_No + T; 
20 Characters 

No 
No 
No 



Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

6 

Client 

Client_Name + w f + Client JMo 

+ T; 

13 Characters 



No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) TasksVBy RespAtty 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesU I Workspace 
Dim uidoc As NoteslllDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSessibn 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

viewr i 0+48+0+0 f "ERROR n ) 

lfOk%=1Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 



Tasks\Completed by 
Client 

07/28/1999 10:03:34 AM 

[Not Assigned] 

No 

Enabled 
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Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 

Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number. 
Column Title: 
Column Formula: 



Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = Task" & 
TEArchive = "yes"; 

1 

[Not Assigned] 

Client_Name + " f + ClientJMo 
+ T + Project + '\ " + PDescrip; 
1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

2 

Type 
Form 

4 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

3 

Status 

@lf(Form = "Event"; "(" + 
PDescrip + ") " + " - Due: " + 
@Left(@Text(EventDate); 8) + " 
- Closed: " + 

@Text(TEDateComplete) + " by 
"+RA_Sig + "."; @lf(Form = 
Task"; "(" + PDescrip ♦ ") " + " - 
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Due: " + 

@Lert(@Text(TaskDate); 8) + " 
- Closed:- + 

@Texl(TEDateComplete) + " by 
" + RA^Sig + V; Mn )); 
75 Characters 



No 
No 
No 

General 
No 
No 
No 

11/03/1999 

No 

Left 

None 

No 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) Tasks\Completed by Client 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

viewr^S+O+O/ERROR") 

lfOk%=1Then ' 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index- 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 



Tasks\Completed by RA 

07/28/1999 10:03:35 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = Task" & 
TEArchive = "yes"; 
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Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator. 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 



1 

[Not Assigned] 
Resp_Atty 
1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

2 

[Not Assigned] 

,Client_Name + w [" + ciient_No 
+ V + Project + w + PDescrip; 
1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

3 

Type 
Form 

4 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

4 

Status 
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Column Formula: 



. @lf(Form = "Event"; T + 
PDescrip + ") " + M - Due: " + 
@Text(EventDate) + - - Closed : 
n + @Texl(TEDateCompIete) + ■ 
by n + RA_Sig + @lf(Form = 
Task"; T + PDescrip + ") " + " - 
Due: ■ + @Text(TaskDate) + " - 
Closed: n + 

@Texl(TEDateComplete) + tt by 

, • + Ftt_Sig + n .V ,,, )); 
Column Width: 75 Characters 

List Separator 

Hidden: No 
Responses Only: No 
Icon: No 
Number Format: General 
Percentage (value * 1 00)%: No 
Parentheses on Negative Numbers: No 
Punctuated at Thousands: No 
Time Format: 11/03/1999 
Sorting: No 
Justification: Left 
Totals: None 
Hide Detail Values: No 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) Tasks\Comp!eted by RA 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace.CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

viewl" 1 0+48+0+0 i w ERROR M ) 

If Ok%=1 Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 



UpdateView 

07/05/1999 02:15:30 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 
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View May Be Used By: . 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 
[None] 



All Users 
No 

SELECT Form != 
TrojectProfile" & Update = 
"mod" | ©AIIDescendants; 



Column Title* 


unent_N0 


Ortfi imn Formula' 


• Client_No + Matter_No; 


Pnlumn \A/iHth- 


6 Characters 


1 tet Spriarsitnr* 
UJoi ocpdldiui. 




Hiririprv 

1 liUUCII, 


No 


rxCojJvJI Iocs willy. 


No 




No 


K|i imKor Cnrmit • 

iNumoer rormai. 


General 


rerceniage (vaiue 1UU)%. 


No 


rarentneses on Negative Numbers: 


No 


runuiuaiea ax i nousanas. 


No 


i ime rormaL 


1 1/03/1999 05:36:20 PM 


oorting. 


Ascending, Categorized 


Justification: 


Left 


Totals: 


None 


niae uetaii values: 


No 


ilumn Number: 


2 


uoiurnn i me. 


MatterName 


ouiurrin rormuia. 


Matter_Name 


Column Width: 


27 Characters 


List Separator: 




Hidden: 


No 


Responses Only: 


No 


Icon: 


No 


Number Format: 


General 


Percentage (value * 100)%: 


No 


Parentheses on Negative Numbers: 


No 


Punctuated at Thousands: 


No 


Time Format: 


11/03/1999 05:36:20 PM 


Sorting: 


No 


Justification: 


Left 


Totals: 


None 


Hide Detail Values: 


No 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 



(AIIReports) 

07/05/1999 02:15:31 AM 

[Not Assigned] 

No 

Disabled 

Expanded 

None 
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Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
. Percentage (value * 1 00)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 



Automatic 
Never 
All Users 
No 

SELECT Form = 
"(ClientMatterReport)" | Form = 
"(ClientProjectReport)"; 

1 

Report 
FormName 
4 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Lett 

None 

No 

2 

Client 
client 

4 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

3 

Report Date 
ReportDate 
10 Characters 

No 
No 
No 

General 

No 

No 
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Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 

Formula: 
Action: 

Formula: 

Action: 
Formula: 



Action: 
Formula: 



Action: 
Formula: 



Action: 

Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 



No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

Edit Selected 

@Command([EditDocument]); 
Add A New Client 
@Command([Compose]; 
"ClientForm"); 
Create New Matter 
@lf(Form » "ClientForm"; 
@Command([Compose]; 
"Matter"); @Prompt([OKl; 
"Error"; "Please select the 
associated Client before 
creating a new Matter.")); 
Create New Project 
TList := @DbColumn(" n ; "" : ""; 
"ProjectTypes"; 1);Ust := 
@lf(@lsError(TList); 
@Retum(@Prompt([OK]; 
"Error; "An error has occured. 
Please try again.")); 
TList);ENVIRONMENT 
SubType := 

@Prompt([OKCANCELLIST]; 
"New Project"; "Choose one of 
the following:"; @Subset(List; 
1); List);@lf(Form = "Matter; 
@Command([Compose]; ""; 
"Project"); @Prompt([OKJ; 
"Error; "Please select the 
associated Matter before 
creating a new Project.")); 
Create New Event 
@lf(Fonm = "Project"; 
@Command([Compose]; 
"Event"); @PromptflOK]; 
"Error; "Please select the 
associated Project before 
creating- a new Event.")); 
Create New Task 
@lf(Form = "Project"; 
@Command([Composej; 
"Task"); @Prompt([OK]; "Error; 
"Please select the associated 
Project before creating a new 
Task.")); 



298 



[None] 



Name: 



Alias: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 

Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 



Column Width: 
List Separator. 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 1 00)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator 
Hidden: 

Responses Only: 



(Business Card) Place 
this view in the Public 
Address Book 

BCard 

07/05/1999 02:15:32 AM 

[Not Assigned] 

No 

Disabled 

Collapsed 

None 

Automatic 

Never 

All Users 

No 

SELECT Type = "Person" : 
"Company"; 

1 

Name 

@lf(LastName != "" | FirstName 

|_ MM. 

@Trim(@Subset(LastName; 1)) 
+ @lf(Rrstname l= " , " + 
@Trim(@Subset(FirstName; 
1)); ""); CompanyName); 
13 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

2 

Name 

@Trim(@lf(FullName != ""; 
@Name([CN]; 
@Subset(FullName; 1)); 
FullName = & CompanyName 
!= ""; CompanyName; "")); 
16 Characters 

No 
No 
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Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



No 

General 
No 
No 
No 

■ 11/03/1999 05:36:20 PM 
No 
Left 
None 
No 
3 

Phones 

@Trim(@lf(OfficePhoneNumber 
!= ""; @lf(PhoneLabeM != HW ; 
PhoneLabeM + ": "") + 
OfficePhoneNumber; ,m ) : 
@lf(OfficeFAXPhoneNumber != 
,,B ; @lf(PhoneLabe«_3 != 
PhoneLabeL3 + n : "; "■) + 
OfficeFAXPhoneNumber; ww ) : 
@lf(CellPhoneNumber != MW ; 
@lf(PhoneLabeL5 l= ,m ; 
PhoneLabeLS + w ; ,f ") + 
CellPhoneNumber; WM ) : 
@lf(PHoneNumber != m ; 
@lf(PhoneLabel_2 != nn ; 
PhoneLabeL2 + "") + 
PhoneNumben nn ) : 
@lf(HomeFAXPhoneNumber != 
ww ; @lf(PhoneLabel_4 != 
PhoneLabel_4 + w ; mv ) + 
HomeFAXPhoneNumber; "") : 
@lf(PhoneNumber_6 != ,m ; 
@lf(PhoneLabeL6 l= nn ; 
PhoneLabeL6 + B : ,nt ) + 
PhoneNumber_6; nn ))\ 
16 Characters 
New Line 
No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

4 

Business 

@Trim(@lf(CompanyName != 
CompanyName; : 



300 



Column Width: 
List Separator. 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 
Formula: 



Action: 
Formula: 



@lf(JobTrtle != JobTitle; ,m ) : 
@lf(OfficeStreetAddress != ""; 
OfficeStreetAddress : 
@Trim(OfficeCity + 
@lf(OfficeCity != & 
OfficeState != ""; ' 
OfficeState + ' 
OfficeCountry; 



n + OfficeZip) : 



23 Characters 
New Line 

No * 

No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

Add Card 

CurrentServer := 
@Subset(@DbName; 
1);@lf(CurrentServer = ""; 
<gJPostedCommand([Compose] ; 
"Person"); 

©IsMembernUserCreator]"; 
@UserRoles); 

@PostedCommand([Compose]; 
"Person"); @Prompt([OK]; "Not 
Authorized"; 'You are not 
authorized to add Person 
documents to this database.")); 
Delete 

FIELD MailVerify := "0"; FIELD 
DeleteNTUserAccount := 
"0";synch := "";AdminFi!eName 
:= "admin4.nsr;CurrentServer 
:= @Subset(@DbName; 
1);AdminPExist := 
@DbExists(CurrentServer : 
AdminFileName);AdminPAcces 
s := 

@V4UserAccess(CurrentServer 

AdminFileName);AdminPAcces 
sLevel := 

@TextToNumber(@Subset(Ad 
minPAccess; 

1));AdminPCreateAccess := 
@TextToNumber(@Subset(@S 
ubset(AdminPAccess; 2); - 
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1));NamesAccess := 
@V4UserAccess(@DbName);N 
amesAccessLevel := 

@TextToNumber(@Subset(Na 
mesAccess; 

1));NamesDeIeteAccess := 
@TextToNumber(@Subset(Na 
mesAccess; - 
1));PersonLastName := 
LastName;PersonFirstName := 
FirstName;DeleteVerify := 
@lf(@Prompt([YESNO]; 
"Verification"; "You have 
requested to delete the selected 
person records. Do you wish to 
continue?"); @True; 
@Return(@Prompt([OK]; 
"Action Cancelled"; "You have 
cancelled deleting the person 
record(s).")));@lf(De!eteVerify = 
@True; @lf(CurrentServer = ,m ; 
@Command([EditClearD; 
@Do(@DialogBox("(DeleteUser 
Options)"; [NoCancel] : 
[AutoVertFit] : [AutoHorzFit] : 
[NoNewFields]); 
@lf(@Text(AdminPExist) = "1"; 
@lf(AdminPAccessLevel > 2 & 
AdminPCreateAccess > 0; 
@lf(NamesAccessLevel > 3 & 
NamesDeleteAccess > 0; 
@Do(@Set("synch"; 
@Prompt([YESNOCANCEL]; 
"Immediate or via Administration 
Process?"; "By selecting VYesY 
the action you have requested 
will take place immediately, and 
affect all references to the 
selected people in this Address 
Book. (NOTE: This may take 
awhile...)")); @lf(synch = 
@True; 

@lf(@AdminPerformAction([Del 
eteUser]; CurrentServer : 
AdminFileName; "*"; 
@V3UserName; MailVerify; 
DeleteNTUserAccount); 
@Prompt([OK]; "Completed 
Successfully"; 'The people(s) 
name have been removed 
completely from this Address 
Book"); @Prompt([OK]; "Error"; 
"You have encountered an 
error. The people(s) name have 
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not been removed completely. 
Please try again.")); synch = 
@False; 

@Do(@lf(@AdminCreateReque 
st([DeleteUser]; CurrentServer : 
AdminFileName; "*"; 
@V3UserName; MailVerify; 
DeleteNTUserAccount); 
@Prompt([OKJ; "Request 
Successful"; "Your request to 
delete the people(s) name have 
been successfully submitted to 
the Administration Requests 
database."); @Prompt([OK]; 
. "Error; 'You have encountered 
an error. The request was not 
submitted properly. Please try 
again/ 1 ))); 

@Retum(@Do(@SetFieldC'Del 
eteNTUserAccount"; 
©Unavailable); @Prompt([OK]; 
"Action Cancelled"; "Action has 
been cancelled."))))); 
NamesAccessLevel > 2 & 
NamesDeleteAccess > 0; 
@Do(@lf(@AdminCreateReque 
st([DeleteUser]; CurrentServer : 
AdminFileName; 
@V3UserName; MailVerify; 
DeleteNTUserAccount); 
@Prompt(IOK]; "Request 
Successful"; 'Your request to 
delete the people(s) name have 
been successfully submitted to 
the Administration Requests 
database."); @Prompt([OK]; , 
"Error; 'You have encountered 
an error. The request was not 
submitted properly. Please try 
again."))); NamesAccessLevel < 
3 | NamesDeleteAccess = 0; 
@Return(@Do(@SetFieldCDel 
eteNTUserAccount"; 
©Unavailable); @Prompt([OK]; 
"Insufficient Access"; "You do 
not have sufficient access to 
perform the requested 
operation; 1 ))); 

@Return(@Do(@SetField("Del 
eteNTUserAccount"; 
©Unavailable); @Prompt([OK]; 
"Insufficient Access"; 'You do 
not have sufficient access to 
perform the requested 
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operation.")))); 

@Retum(@Do(@SetField("Del 
eteNTUserAccount"; 
©Unavailable); @Prompt([OK]; 
"Insufficient Access"; "You are 
not authorized to create 
requests in the Administration 
Requests Database.")))); 
@Return(@Do(@SetField("Del 
eteNTUserAccount"; 
©Unavailable); @Prompt([OK]; 
"Admin. Requests Database 
Does Not Exist"; "The 
Administration Requests 
database cannot be found on 
the current server. Please 
contact your server 
administrator.")))))); 
@Retum("")); 

Action: Delete 

Formula: synch := ""jAdminFileName := 

"admin4.nsf , ;CurrentServer := 
@Subset(@DbName; 
1);AdminPExist := 
@DbExists(CurrentServer : 
AdminFileName);AdminPAcces 
s := 

@V4UserAccess(CurrentServer 

AdminFiIeName);AdminPAcces 
sLevel := 

@TextToNumber(@Subset(Ad 
minPAccess; 

1));AdminPCreateAccess := 
@TextToNumber(@Subset(@S 
ubset(AdminPAccess; 2); - 
1));NamesAccess := 
@V4UserAccess(@DbName);N 
amesAccessLevel := 
@TextToNumber(@Subset(Na 
mesAccess; 

1));NamesDeleteAccess := 
@TextToNumber(@Subset(Na 
mesAccess; -1));Delete Verify := 
@Prompt([YESNO]; 
"Verification"; •You have 
requested to delete the person 
record for " + 
@Name([Abbreviate]; 
@Subset(FullName; 1)) + n . Do 
you wish to 

continue?");@lf(DeleteVerify = 
@True; @lf(CurrentServer = ""; 
@Command([EditClearD; 
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@lf(@Text(AdminPExist) = "1"; 
@lf(AdminPAccessLevel > 2 & 
AdminPCreateAccess > 0; 
@lf(NamesAccessLevel > 3 & 
NamesDeleteAccess > 0; 
@Do(@Set("synch"; 
@Prompt([YESNOCANCEL]; 
"Immediate or via Administration 
Process?"; "By selecting YYesY 
the action you have requested 
will take place immediately, and 
affect all references to this 
Person in this Address Book. 
(NOTE: This may take 
awhile;..)")); @lf(synch = 
©True; 

@lf(@AdminPerformAction([Del 
eteUser]; CurrentServer : 
AdminFileName; "*"; 
@V3UserName); 
@Prompt([OK]; "Completed 
Successfully"; 'The userVs 
name has been removed 
completely from this Address 
Book7; @Prompt([OK]; "Error; 
''You have encountered an 
error. The userVs name has not 
been removed completely. 
Please try again.")); synch = 
©False; 

@lf(@AdminCreateRequest([De 
leteUser]; CurrentServer : 
AdminFileName; "*"; 
@V3UserName); 
@Prompt([OK]; "Request 
Successful"; "Your request to 
delete this usemame has been 
successfully submitted to the 
Administration Requests 
database."); @Prompt([OK]; 
"Error"; "You have encountered 
an error. The request was not 
submitted properly. Please try 
again;")); 

@Retum(@Prompt([OK]; 
"Action Cancelled"; "Action has 
been cancelled.")))); 
NamesAccessLevel > 2 & 
NamesDeleteAccess > 0; 
@lf(@AdminCreateRequest([De 
leteUser]; CurrentServer : 
AdminFileName; "*"; 
@V3UserName); 
@Prompt([OKJ; "Request 
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Action: 
Formula: 



Action: 
Formula: 



Successful"; "Your request to 
delete this username has been 
successfully submitted to the 
Administration Requests 
database."); @Prompt([OK]; 
"Error; "You have encountered 
an error. The request was not 
submitted properly. Please try 
again.")); NamesAccessLevel < 
3 | NamesDeleteAccess = 0; 
@Retum(@Prompt([OK]; 
"Insufficient Access"; "You do 
not have sufficient access to 
perform the requested 
operation.")); 
@Retum(@Prompt([OK]; 
"Insufficient Access"; "You do 
not have sufficient access to 
perform the requested 
operation."))); 
@Retum(@Prompt([OK]; 
"Insufficient Access"; "You are 
not authorized to create 
requests in the Administration 
Requests Database."))); 
@Retum(@Prompt([OKl; 
"Admin. Requests Database 
Does Not Exist"; "The 
Administration Requests 
database cannot be found on 
the current server. Please 
contact your server 
administrator.")))); 
@Retum(@Prompt([OK]; 
"Action Cancelled"; 'You have 
cancelled deleting this 
person."))); 

Copy to Personal Address 
Book 

@Command([ToolsRunMacro]; 
"(Copy to Personal Address 
Book)"); 

Recertify Person 

AdminFileName := 
"admin4.nsf;CertLogFileName 
:= "certlog.nsr;CurrentServer := 
@Subset(@DbName; 
1);AdminPExist := 
@DbExists(CurrentServer : 
AdminFileName);AdminPAcces 
s := 

@V4UserAccess(CurrentServer 



AdminFileName);AdminPAcces 
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sLevel := 

@TextToNumber(@Subset(Ad 
minPAccess; 

1));AdminPCreateAccess := 
@TexlToNumber(@Subset(@S 
ubset(AdminPAccess; 2); - 
1));CertLogExist := 
@DbExists(CurrentServer : 
CertLogFileName);CertLogAcce 
ss := 

@V4UserAccess(CurrentServer 

CertLogFiieNarne);CertLogAcce 
ssLevel := 

@TextToN u mbe r(@S u bset(Cert 
LogAccess; 

1));CertLogCreateAccess := 
@TextToNumber(@Subset(@S 
ubset(CertLogAccess; 2); - 
1));@lf(@Text(AdminPExist) = 
"1" & @Texl(CertLogExist) = 
"1"; @lf((AdminPAccessLevel > 
2 & AdminPCreateAccess > 0) 
& (CertLogAccessLevel > 2 & 
CertLogCreateAccess > 0); 
@Do(@PostedCommand({View 
Certify]); 

@PostedCommand([EditDesele 
clAII])); 

@Retum(@lf((AdminPAccessL 
evel < 3 | AdminPCreateAccess 
= 0); @Prompt([OKl; "Error"; 
"You do not have sufficient 
rights in the Administration 
Request database to perform 
this operation. Please see your 
Administrator."); 
(CertLogAccessLevel < 3 | 
CertLogCreateAccess = 0); 
@Prompt([OK]; "Error; "You do 
not have sufficient rights in the 
Certification Log file to perform 
this operation. Please see your 
Administrator. 11 ); WM ))); 
@Retum(@lf(@lsError(AdminP 
Exist); @Prompt([OK]; "Error; 
"You have received the 
following error trying to open the 
Administration Request 
database: " ♦ 
@Text(AdminPExist) + " 
Please correct the error and 
retry."); @Text(AdminPExist) = 
"0"; @Prompt([OKJ; "Error; 
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"The Administration Request 
database does not exist on this 
server. In order to perform this 
operation you must have an 
Administration Request 
database and you need at least 
Author access."); 
@lsError(CertLogExist); 
@Prompt([OKJ; "Error"; "You 
have received the following 
error trying to open the 
Certification Log database: n + 
@Text(CertLogExist) + n 
Please correct the error and 
retry."); @Text(CertLogExist) = 
"0"; @Prompt([OK]; "Error; 
This action requires a 
Certification Log file. This file 
was not found. Please see your 
Administrator."); BM ))); 
Action: Rename Person 

Formula: AdminFileName := 

B admin4.nsr;CertLogFileName 
:= "certlog.nsf;CurrentServer := 
@Subset(@DbName; 
1);AdminPExist:= 
@DbExtsts(CurrentServer : 
AdminFileName);AdminPAcces 
s := 

@V4UserAccess(CurrentServer 

AdminFileName);AdminPAcces 
sLevel := 

@TextToNumber(@Subset(Ad 
minPAccess; 

1));AdminPCreateAccess := 
@TextToNumber(@Subset(@S 
ubset(AdminPAccess; 2); - 
1));CertLogExist := 
@DbExists(CurrentServer : 
CertLogFileName);CertLogAcce 
ss := 

@V4UserAccess(CunrentServer 

CertLogFileName);CertLogAcce 
ssLevel := 

@TextToNumber(@Subset(Cert 
LogAccess; 

1));CertLogCreateAccess := 
@TextToNumber(@Subset(@S 
ubset(CertLogAccess; 2); - 
1));@lf(@Text(AdminPExist) = 
. "1 a &@Text(CertLogExist) = 
M r; @lf((AdminPAccessLevel > 
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2 & AdminPCreateAccess > 0) 

& (CertLogAccessLevel > 2 & 

CertLogCreateAccess > 0); 

@Do(@PostedCommand([View 

RenamePerson]); 

@PostedCommand([EditDesele 

ctAII])); 

@Retum(@lf((AdminPAccessL 
evel < 3 1 AdminPCreateAccess 
= 0); @Prompt([OK]; "Error; 
"You do not have sufficient 
rights in the Administration 
Request database to perform 
this operation. Please see your 
Administrator."); 
(CertLogAccessLevel < 3 | 
CertLogCreateAccess = 0); 
@Prompt([OK]; "Error; "You do 
not have sufficient rights in the 
Certification Log file to perform 
this operation. Please see your 
Administrator."); ""))); 
@Retum(@lf(@lsError(AdminP 
Exist); @Prompt([OKJ; "Error;, 
"You have received the 
following error trying to open the 
Administration Request 
database: " + 
@Text(AdminPExist) + " 
Please correct the error and 
retry."); @Text(AdminPExist) = 
"0"; @Prompt([OK]; "Error; 
"The Administration Request 
database does not exist on this 
server. In order to perform this 
operation you must have an 
Administration Request 
database and you need at least 
Author access."); 
@isError(CertLogExistj; 
@Prompt([OK]; "Error; "You 
have received the following 
error trying to open the 
Certification Log database: " + 
@Text(CertLogExist) + " 
Please correct the error and 
retry."); ©Text(CertLogExist) = 
"0"; @Prompt([OK]; "Error; 
"This action requires a 
Certification Log file. This file 
was not found. Please see your 
Administrator."); ""))); 
Set Password Fields 
CheckPasswordSave := 
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CheckPassword;PasswordGrac 
ePeriodSave := 

PasswordGracePeriod;Passwor 
dChangelntervalSave := 
PasswordChangelnterval;FIELD 
CheckPassword := 
CheckPassword;FIELD 
PasswordGracePeriod := 
PasswordGracePeriod;FIELD 
PasswordChangelnterval := 
PasswordChangelnterval;Curre 
ntServer := 
@Subset(@DbName; 
1);AdminDb := 

w admin4.nsf , ;NamesAccess := 
@V4UserAccess(@DbName);N 
amesAccessLevel := 
@TextToNumber(@Subset(Na 
mesAccess; 

1));@tf((NamesAccessLevel > 
3) | (NamesAccessLevel = 3 & 
@Contains(@UserRoles; . 
"[UserModifier]")); 
@lf(@Prompt([YESNO]; "Set 
Password Fields"; "You are 
about to set the password fields 
for the selected person records. 
Do you want to continue?"); 
@Do(@lf(@DialogBox("(SetPas 
swordFields)"; [AutoVertFrt] : 
[AutoHorzFit] : [NoNewFields]); 
@Do(@lf(@AdminCreateReque 
st ([SetPasswordFields] ; 
CurrentServer : AdminDb; "*"; 
@UserName; CheckPassword; 
@lf((PasswordGracePeriod = 

:i\ 

(@lsNumber(PasswordGracePe 
riod) = ©False); 0; 
PasswordGracePeriod); 
@lf((PasswordChangelnterval = 
n l\ 

(@lsNumber(PasswordChangel 
nterval) = ©False); 0; 
PasswordChangelnterval)); 
@Prompt([OK]; "Completed 
Successfully"; "The request has 
been successfully submitted to 
the Administration Request 
Database."); @Prompt([OK]; 
"Error; "You have encountered 
an error. At least one of the 
requests was not submitted. 
Please try again.")); 
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Action: 
Formula: 



Action: 
Formula: 

I 



Action: 
Formula: 



@SetField("CheckPassword"; 
CheckPasswordSave); 
@SetFieldC'PasswordGracePeri 
od"; 

PasswordGracePeriodSave); 

@SetField("PasswordChangelnt 

erval"; 

PasswordChangelntervalSave)); 

@Return(@Prompt([OKJ; 

"Action Cancelled"; 'The action 

has been cancelled")))); 

@Retum(@Do(@SetFieldfChe 

ckPassword"; 

CheckPasswordSave); 

@SetFieldCPasswordGracePeri 

od"; 

PasswordGracePeriodSave); 

©SetFieldfPasswordChangelnt 

ervaP; 

PasswordChangelntervalSave); 
@Prompt([OK]; "Action 
Cancelled"; The action has 
been cancelled")))); 
@Retum(@Prompt([OKJ; 
"Insufficient Access"; "You do 
not have sufficient access in the 
address book to complete this 
action."))); 
Write Memo 

@lf(@TextToNumber( 
©Version) < 146; 
@Return(@Prompt([OK]; 
"Error; "You must use Notes 
4.6 or above to use this 
action.")); 

@Command([T oolsRunMacro]; 
"(CreateMailMemo)")); 
Schedule Meeting 

@lf(@TextToNumber( 
©Version) < 146; 
@Retum(@Prompt([OK]; 
"Error"; "You must use Notes 
4.6 or above to use this 
action.")); 

@Command([ToolsRunMacro]; 
"(ScheduleMeeting)")); 
Visit Web Page 
@lf(WebSite != 
@URLOpen(WebSite); 
@Prompt([OKJ; "No Web Page 
Defined"; "This document has 
no Web page defined.")); 
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JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 

Subcomponents: 
Column Number: 

Column TWe: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 1 00)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 



(Client) 

07/05/1999 02:15:33 AM 

[Not Assigned] 

No 

Disabled 

Collapsed 

None 

Automatic 

Never 

All Users 

No 

SELECT ((Form = 
"ClientForm")); 

1 

Client No 
ClientJMo 
6 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

2 

Client Name 
Client_Name 
17 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 



Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 
Formula: 

Action: 
Formula: 



Action: 
h Formula: 



No 
3 

Client No 
Client_No 
7 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

4 

CRentDocID 
ClientDocID 
24 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

Add A New Client 
@Command([Compose]; 
"ClientForm"); 
Create New Matter 
@lf(Form = "ClientForm"; 
@Command([Compose); 
"Matter"); @Prompt([OK]; 
"Error"; "Please select the 
associated Client before 
creating a new Matter.")); 
Create New Project 
TList := @DbColumnC; MM : 
"ProjectTypes"; 1);List := 
@lf(@lsEnror(TList); 
@Retum(@Prompt([OK]; 
"Error"; "An error has occured. 
Please try again.")); 
TList);ENVIRONMENT 
SubType := 



313 



Action: 
Formula: 



Action: 
Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



@Prompt([OKCANCELLIST]; 
"New Project"; "Choose one of 
the following:"; @Subset(List; 
1); List);@lf(Form = "Matter"; 
©Command ([Compose]; ""; 
"Project' 1 ); @Prompt([OK); 
"Error"; "Please select the 
associated Matter before 
creating a new Project ")); 
Create New Task 
@lf(Form = "Project"; 
@Command([Compose]; 
"Task"); @Prompt([OK]; "Error"; 
"Please select the associated 
Project before creating a new 
Task.")); 

Create New Subtask 

@lf(Form = "Task"; 
@Command([Compose]; 
"Subtask"); @Prompt([OKJ; 
"Error; "Please select the 
associated Task before creating 
a new Subtask.")); 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 
Subcomponents: 
Column Number 
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Create New Matter 
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"Matter"); @Prompt([OK]; 
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creating a new Matter.")); 
Create New Project 
TList := ©DbColumnC; "" : ""; 
"ProjectTypes"; 1);List:= 
@lf(@lsError(TList); 
@Retum(@Prompt([OK|; 
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Please try again.")); 
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@Prompt([OKCANCELLISTJ; 
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creating a new Event.")); 
Create New Task 
@lf(Form = "Project"; 
@Command([Compose]; 
"Task"); @Prompt([OK); "Error; 
"Please select the associated 
Project before creating a new 



319 



Task.")); 

JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 
Subcomponents: 
Column Number: 

Column Title: 

Column Formula: 

Column Width: 

List Separator: 

Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 1 00)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 



(Matter) 

07/05/1999 02:15:36 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT ((Form = "Matter")); 
1 

ClientJMo 

Client_No + Matter_No; 
6 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

2 

Matter Name 
Matter_Name 
27 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 



320 



Hide Detail Values: No 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 

Subcomponents: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values- 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



(ProjectTypes) 

03/23/1999 09:53:22 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

AU Users 

No 

SELECT Form = 
"(ProjectProfite)"; 



ProjectTypes 
ProjectType 
15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 



(ReportClient) 

08/26/1999 11:06:00 AM 

[Not Assigned] 

No 

Enabled 
Expanded 
None 
Automatic 



321 



Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 
Subcomponents: 
Column Number: 

Column Title: 

Column Formula: 

Column Width: 

List Separator 

Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 

Formula: 
Action: 

Formula: 

Action: 

Formula: 



Action: 
Formula: 



Action: 



Never 
All Users 
No 

SELECT Form = "ClientForm"; 



{Not Assigned] 
Client_Name 
11 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

Edit Selected 
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Create New Matter 
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@Command([Compose]; 
"Matter"); @Prompt([OKl; 
"Error; "Please select the 
associated Client before 
creating a new Matter.")); 
Create New Project 
TList := ©DbCoiumnC; M " : '"'; 
"ProjectTypes"; 1);List := 
@lf(@lsError(TList); 
@Retum(@Prompt([OK]; 
"Error; "An error has occured. 
Please try again.")); 
TList);ENVIRONMENT 
SubType := 

@Prompt([OKCANCELLIST]; 
"New Project"; "Choose one of 
the following:"; @Subset(List; 
1); List);@lf(Form = "Mattel; 
@Command([Compose]; ""; 
"Project 1 '); @Prompt([OKJ; 
"Error; "Please select the 
associated Matter before 
creating a new Project.")); 
Create New Event 
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@lf(Form = "Project"; 
@Command([Compose]; 
"Event"); @Prompt([OK]; 
"Error"; "Please select the 
associated Project before 
creating a new Event.")); 
Create New Task 
@lf(Form = "Project"; 
@Command([Compose]; 
Task"); @Prompt([OK]; "Error"; 
"Please select the associated 
Project before creating a new 
Task.")); 
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@Command([EditDocumentD; 
Add A New Client 
@Command([Compose]; 
"CJientForm"); 
Create New Matter 
@lf(Form = "ClientForm"; 
@Command([Compose]; 
"Matter"); @Prompt([OK]; 
"Error; "Please select the 
associated Client before 
creating a new Matter.")); 
Create New Project 
TList := ©DbColumnn ,,n : 
"ProjectTypes"; 1);List := 
@lf(@lsError(TList); 
@Retum(@Prompt([OK]; 
"Error"; "An error has occured. 
Please try again.")); 
TList);ENVIRONMENT 
SubType := 

@PromptaOKCANCELLIST]; 
"New Project"; "Choose one of 
the following:"; @Subset(List; 
1); List);@lf(Form = "Matter; 
@Command([Compose]; ""; 
"Project"); @Prompt([OKJ; 
"Error; "Please select the 
associated Matter before 
creating a new Project.")); 
Create New Event 
@lf(Form = "Project"; 
@Command([Compose]; 
"Event"); @Prompt([OKl; 
"Error; "Please select the 
associated Project before 
creating a new Event. ")); 
Create New Task 
@lf(Form = "Project"; 
@Command([Compose]; 
"Task"); ©PromptaOKJ; "Error; 
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@Command([EditDocumentD; 
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Create New Matter 
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@Command([Compose]; 
"Matter); @Prompt([OK]; 
"Error"; "Please select the 
associated Client before 
creating a new Matter.")); 
Create New Project 
TList := @DbColumn(""; "" : ""; 
"ProjectTypes"; 1);List := 
@lf(@lsError(TList); 
@Retum(@PromptflOK]; 
"Error; "An error has occured. 
Please try again.")); 
TList);ENVIRONMENT 
SubType := 

@Prompt({OKCANCELLIST]; 
"New Project"; "Choose one of 
the following:"; @Subset(List; 
1); List);@lf(Form = "Matter; 
@Command([Compose]; ""; 
"Project"); @Prompt([OK]; 
"Error; "Please select the 
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creating a new Project.")); 
Create New Event 
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@Command([Compose]; 
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Create New Task 
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@Command([EditDocumentD; 
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@Command([Compose]; 
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LotusScript Code: 

[None] 



associated Client before 
creating a new Matter.")); 
Create New Project 
TList := @DbColumn( nn ; : ""; 
"ProjectTypes"; 1);List := 
@lf(@lsError(TList); 
@Return(@Prompt([OK]; 
"Error"; "An error has occured. 
Please try again.")); 
TList);ENVIRONMENT 
SubType := 

@Prompt([OKCANCELLIST]; 
"New Project"; "Choose one of 
the following:"; @Subset(Lisf 
1); List);@lf(Form = "Matter"; 
@Command([Compose]; ""; 
"Project"); @Prompt([OK]; 
"Error"; "Please select the 
associated Matter before 
creating a new Project.")); 
Create New Event 
@lf(Form = "Project"; 
@Command([Compose]; 
"Event"); @Prompt([OK]; 
"Error ; "Please select the 
associated Project before 
creating a new Event.")); 
Create New Task 
@lf(Form = "Project"; 
@Command([Compose]; 
'Task"); @Prompt(IOK]; "Error"; 
"Please select the associated 
Project before creating a new 
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Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 
Subcomponents: 



(Routing Profile) 

03/18/1999 02:21:57 PM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = "Routing"; 
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Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 




1 

Modified 
©Modified 
13 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:21 PM 

Ascending 

Left 

None 

No 

2 

Document 
Form 

6 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:21 PM 

No 

Left 

None 

No 

3 

Resp Atty 

ProAtty 

26 Characters 

New Line 

No 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:21 PM 

No 

Left 

None 

No 

4 

ProsRout Cy1 
ProsRouteCpyl 
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Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 

Formula: 
Action: 

Formula: 

Action: 



10 Characters 

New Line 

No 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:21 PM 

Ascending 

Left 

None 

No 

5 

ProsRout Cy3 

ProsRouteCpy3 

10 Characters 

New Line 

No 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:21 PM 

Ascending 

Left 

None 

No 

6 

LitRout Cy1 

LitRouteCpyl 

10 Characters 

New Line 

No 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:21 PM 

No 

Left 

None 

No 

Edit Selected 

@Command([EditDocument]); 
Add A New Client 
@Command([Compose]; 
"ClientForm"); 
Create New Matter 
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Formula: 



Action: 
Formula: 



Action: 
Formula: 



Action: 
Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



Shared Field Information 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 



@lf(Form = "ClientFonm"; 
@Command([Compose]; 
"Matter"); @Prompt([OK]; 
"Error; "Please select the 
associated Client before 
creating a new Matter/ 1 )); 
Create New Project 
TList := ©DbColumnC ; ntt : nn ; 
"ProjectTypes"; 1);List := 
@lf(@lsError(TList); 
@Return(@Prompt([OK]; 
"Error; "An error has occured. 
Please try again.")); 
TList);ENVIRONMENT 
SubType := 

@Prompt([OKCANCELLIST]; 
"New Project"; "Choose one of 
the following:"; @Subset(List; 
1); List);@lf(Form = "Matter; 
@Command([Compose]; ""; 
"Project"); @Prompt([OK]; 
"Error; "Please select the 
associated Matter before 
creating a new Project. ")); 
Create New Event 
@lf(Form = "Project"; 
@Command([Compose]; 
"Event"); ©Prompt ([OK]; 
"Error; "Please select the 
associated Project before 
creating a new Event.")); 
Create New Task 
@lf(Form = "Project"; 
@Command([Compose]; 
Task"); @Prompt([OK]; "Error; 
"Please select the associated 
Project before creating a new 
Task.")); 



BilLAtty 

Names 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 
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Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section; 
Encryption: 

Update Requires Editor Access: 

Formula: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Formula: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Default Value Formula: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 



03/29/1999 03:06:58 PM 



client 

Text 

[Not Assigned] 
Computed when composed 
No 

Disabled 
No 

ClientJMame 
No 

03/29/1999 03:06:59 PM 



client_name 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

Client_Name 
No 

03/29/1999 03:06:59 PM 



cILno 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

Clientjvjo 
No 

03/29/1999 03:07:00 PM 



comments 
Rich Text 
[Not Assigned] 
Editable 
No 
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Encryption: 

Update Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Default Value Formula: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 



Disabled 

No 

No 

03/29/1999 03:07:00 PM 



cre_date 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 
Yes 

©Created 
No 

07/28/1999 10:03:24 AM 



description 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

03/29/1999 03:07:01 PM 



History 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

03/29/1999 03:07:02 PM 



inventor 
Text 

[Not Assigned] 
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Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

. Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Editable 
No 

Disabled 

No 

No 

03/29/1999 03:07:02 PM 



key_country 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

United States (US) 
Afghanistan (AF) 
Albania (AL) 
Algeria (DZ) 
Andorra (AD) 
Angola (AO) 
Anguilla (Al) 
Antigua (AG) 
Argentina (AR) 
Armenia (AM) 
Aruba (AB) 
Australia (AU) 
Austria (AT) 
Azerbijan (AZ) 
Bahamas (BS) . 
Bahrain (BH) 
Bangladesh (BD) 
Barbados (BB) 
Belarus (BY) 
Belarussia (BL) 
Belgium (BE) 
Belize (BZ) 
Benelux (BX) 
Bermuda (BM) 
Bhutan (BT) 
Bolivia (BO) 
Boputhatswana (BP) 
Bosnia-Hercegovina (BA) 
Botswana (BW) 
Brazil (BZ) 

British Virgin Islands (BV) 

Brunei (BN) 

Bulgaria (BG) 

Burundi (Bl) 

Cambodia (CB) 

Canada (CA) 

Cape Verde Islands (CV) 
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Cape Verde (CV) 

Cayman Islands (KY) 

Central African Republic (CF) 

Chad (TD) 

Chile (CL) 

China (CN) 

Colombia (CO) 

Congo (CG) 

Costa Rica (CR) 

Croatia (HR) 

Cuba (CU) 

Cyprus (CY) 

Czech Republic (CZ) 

Denmark (DK) 

Djibouti (DJ) 

Dominica (DM) 

Dominican Republic (DO) 

Ecuador (EC) 

Egypt (EG) 

El Salvador (SV) 

England (GB) 

Eritrea (ER) 

Estonia (EE) 

Ethopia (ET) 

European Community TMK (CT) 

European Community (EU) 

Falkland Island (FK) 

Fiji Islands (FJ) 

Finland (Fl) 

France (FR) 

Gabon (GA) 

Gambia (GM) 

Gaza District (GZ) 

Gazadta (GZ) 

Georgia (GE) 

Germany East (DD) 

Germany West (DE) 

Ghana (GH) 

Gibraltar (Gl) 

Gilbert (GL) 

Great Britain (GB) 

Greece (GR) 

Grenada (GD) 

Guam (GX) 

Guatemala (GT) 

Guernsey (GS) 

Guinea (GN) 

Guyana (GY) 

Haiti (HT) 

Honduras (HN) 

Hong Kong (HK) 

Hungary (HU) 

Iceland (IS) 

India (IN) 
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Indonesia (ID) 
International (WO) 
Iran (IR) 
Iraq (IQ) 
Israel (IL) 
Italy (IT) 
Ivory Coast (CI) 
Jamaica (JM) 
Japan (JP) 
Jersey (JE) 
Jordan (JO) 
Kazakhstan (KZ) • 
Kenya (KE) 
Kiribati (Kl) 
Kuwait (KW) 
Kyrgystan (KG) 
Laos (LA) 
Latvia (LV) 
Lebanon (LB) 
Lesotho (LS 
Liberia (LR) 
Libya (LY) 
Lichtenstein (LI) 
Lithuania (LT) 
Luxembourg (LU) 
Macau (MM) 
Macau (MO) 
Macedonia (MK) 
Madagascar (MG) 
Malawi (MW) 
Malaya (MQ) 
Malaysia (MY) 
Maldiv (MV) 
Mali (ML) 
Malta (MT) 
Mauritius (MU) 
Mexico (MX) 
Moldova (MD) 
Monaco (MC) 
Mongolia (MN) 
Montserrat (MS) 
Morocco (MA) 
Mozambique (MZ) 
Myanmar (BU) 
Namibia (NA) 
Nepal (NP) 

Netherlands Antilles (NT) 
Netherlands (NL) 
New Zealand (NZ) 
Nicaragua (Nl) 
North Korea (KP) 
Norway (NO) 
Oman (OM) 
Pakistan (PK) 



Panama (PA) 
Papua New Guinea (PG) 
Paraguay (PY) 
PCT World (WO) 
Peru (PE) 
Philippines (PH) 
Poland (PL) 
Portugal (PT) 
Puerto Rico (PO) 
Qatar (OA) 

Ras-al-Khaimah (RK) - 
Republic of Ireland (IE) 
Republic of Nambia (WA) 
Republic of Yemen (YD) 
Romania (RO) 
Russia (RU) 
Rwanda (RW) 
Sabah (SB) 
San Marino (SM) 
Sarawak (S J) 
Saudi Arabia (SA) 
Senegal (SN) 
Seychelles (SC) 
Sierra Leone (SL) 
Singapore (SG) 
Slovak Republic (SK) 
Slovenia (SI) 
Solomon Islands (SS) 
Somalia (SO) 
South Africa (ZA) 
South Korea (KS) 
Spain (ES) 
Sri Lanka (LK) 
SL Christopher (CP) 
SL Helena (SH) 
St. Kitts-Nevis (KN) . 
St. Lucia (LC) 
St. Vincent (VC) 
Sudan (SD) 
Surinam (SR) 
Swaziland (SZ) 
Sweden (SE) 
Switzerland (CH) 
Syrian Arab (SY) 
Taiwan (TW) 
Tajikistan (TJ) 
Tangier (Tl) 
Tanzania (TY) 
Thailand (TH) 
Togo (TG) 
Tonga (TO) 
Trans kei (TE) 
Trinidad (TT) 
Tunisia (TIM) 



Sign When Mailing/In Section: 
Encryption: 

Update, Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Maiiing/ln Section: 
Encryption: 

Update Requires Editor Access: 

Default Value Formula: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 



Turkey (TR) 

Turkish Republic of North 
Cyprus (CT) 
Turkmenistan (TM) 
Turks & Caicos (TC) 
Tuvalu (EL) 
Uganda (UG) 
Ukraine (UA) 

United Arab Emirates (AE) 
United Kingdom (GB) 
Upper Vofta (BF) 
Uraguay (UY) 
Uzbekistan (UZ) 
Vanuata (VU) 
Venda (VD) 
Venezuela (VE) 
Vietnam (VN) 
Virgin islands (VI) 
West Bank (WB) 
Western Samoa (WS) 
World (WO) 

Yemen Democratic Republic 
(YD) 

Yemen North (YE) 

Yugoslavia 

Zaire (ZR) 

Zambia (ZM) 

Zanzibar (ZZ) 

Zimbabwe (ZW) 

No ^ 

Disabled 

No 

No 

03/29/1999 03:07:02 PM 



mat_.no 
TexT 

[Not Assigned] 

Editable 

No 

Disabled 
No 

MatterJMo 
No 

03/29/1999 03:07:04 PM 



PDescrip 
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Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator. 
Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 



Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

03/29/1999 03:07:11 PM 



PoA 

Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Standard 

Yes 

©DbColumnf"; : ""; "(Routing 

Profile)"; 3); 

No 

Disabled 

No 

No 

07/28/1999 10:03:28 AM 



pofa_fa 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

03/29/1999 03:07:12 PM 



proj 
Text 

[Not Assigned) 

Editable 

No 

Disabled 
No 

Project 
No 
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Last Modification: 
JavaScript* HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None) 

Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allowable Keywords: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Default Value Formula: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 



03/29/1999 03:07:12 PM 



PropClose 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

03/29/1999 03:07:12 PM 



ProtectFromArchive 

Keywords 

[Not Assigned] 

Editable 

Radio Buttons 

No|0 

Yes|1 

No 

Disabled 
No 
"0" 
No 

03/29/1999 03:07:13 PM 



related__apps 
Text 

[Not Assigned] 

Editable. 

No 

Disabled 

No 

No 

03/29/1999 03:07:13 PM 



related_matter no 
Text 

[Not Assigned] 
Editable 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 
• [None] 

Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi- Value Separator 
Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Formula: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 



No 

Disabled 

No 

No 

03/29/1999 03:07:14 PM 



resp_atty 

Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Standard 

No 

@DbColumnC m ; "" : nM ; "(Routing 

Profile)"; 3); 

No 

Disabled 
No 

@lf(!@lsNevyDoc; @lf(Form 
= "ClientForm"; "Not Assigned"; 
resp_atty)); 
No 

03/29/1999 03:07:15 PM 



route_author 

Author Names 
[Not Assigned] 
Computed 
No 

Disabled 
No 

@Name([CN]; ©UserName); 
No 

03/29/1999 03:07:15 PM 



serial_number 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 
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Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is.Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: , 
Update Requires Editor Access: 
Is Scripted: 
Last Modification: 

JavaScript & HTML Code: 

LotusScript Code: 
[None] 



03/29/1999 03:07:15 PM 



Status_1 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

03/29/1999 03:07:16 PM 



TE Date Complete 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

03/29/1999 03:07:16 PM 



termination_date 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

03/29/1999 03:07:17 PM 



Subforrn Information 

Name: 

Last Modification: 

Include in Insert Subforrn list: 

Include in New Form dialog: 



action__review 

.03/29/1999 01:18:15 PM 

Yes 

No 



Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Validation Formula: 



Next_Action 

Keywords 

[Not Assigned] 

Editable 

Standard 

No 

No 

Disabled 

No 

No 

NextActionBy 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Action_Date 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

DateCompIete 

Time 

11/03/1999 05:36:21 PM 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Priority 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

Urgent 

High 

Medium 

Low 

No 

Disabled 
No 

@lf(Priority = Select -"; 
@Failuref Please designate 
priority."); ©Success); 



Is Scripted: 


No 


Field: 


Status 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Computed 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Formula: 


@lf(TEArchive = "no" | 




TEArchive = ""; "Open"; 




"Completed 1 ); 


Is Scripted: 


No 


Field: 


Hours 


Datatype: 


Number 


Number Format: 


General 


Percentage (value * 100)%: 


No 


Parentheses on Negative Numbers: 


No 


Punctuated at Thousands: 


No 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


trakjd 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Computed when composed 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Formula- 


©Unique 


Is Scripted: 


No 


Field: 


Summary 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


Yes 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Hotspot 




Type: 


Button 


Caption: 


Close and Archive Event 


Is Scripted: 


Yes, see below 


Field: 


Archive 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Default Value Formula: 


n n 


Is Scripted: 


No 
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JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(Button) Close and Archive Event 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NoteslllWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db-session.CurrentDatabase 
'Define some variables 
ActionHist$=uidoc.FieldGetText( n Archive") 
OldAction$=uidoc.FieldGetTexirNext_Action") 
Due$=uidoc.FieldGetText("DateDue") 
Complete$=uidocPieldGetText("DateComplete") 
TraklDS^uidocPieldGetTextOrakjd") 
Sum$=uidocPieldGetText("Summary") 

NewActionHist$ = "Action: " + OldActionS &Chr(010) + 'Tracking ID: " + TraklD$ 

&Chr(010) +"Due on: " + Due$ 
&Chr(010) + "Closed on: " + 
Completes &Chr(01 0) + Sum$ 
&Chr(010) + "Certified closed 
by " + 

Session.CommonUserName 

'Append the closed action to the Archive 
lfOldAction$=""Then 

Ok%=MessageboxCThere is no Action to close!",0+48+0+0, ,, ERROR") 
lfOk%=1 Then 

Exit Sub 
End If 
End If 

If Complete$=" M Then 

Ok%= MessageboxfYou must specify a completion datel",0+48+0+0, "ERROR") 

lfOk%=1Then 
Exit Sub 

End If 
End If 

If Sum$="" Then 

Ok%=Messagebox("You must provide a summary of action 

takenr,0+48+0+0;'ERROR") 

lfOk%=1Then 
Exit Sub • 
End If 
End If 

'Certify that the action should be closed 

YesOrNo%=Messagebox("l " +Session.CommonUserName+ " certify that this subtask 

action is closed." ,4+32+0+0, 
"Action Review Certification") 

lfYesOrNo%=6Then 

Call uidoc.FieldSetText fArchive", NewActionHistS &Chr(010) +" : 
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&Chr(010) + ActionHist$) 

1 Clear the subform for a new entry 

Call uidoc.FieldSetText("Next_Action ,, , n,t ) 
Call uidocPieldSetTextfDateDueV") 
Call uidocFieldSetTextrPriority","") 
Call uidocPieldSetTextfHoursV") 
Calluidoc.FieldSetText("NextActionBy^ m, ) 
Call uidoc.FieldSetTextC , DateComplete n D 
Call uidoc.FieldSetTextfStatus'V'On Going") 
Call uidocPieldSetTextnrakJdY") 
Call uidocFieldSetTextCSummary","") 
End If 
End Sub 



Name: 

Last Modification: 
Include in Insert Subform list: 
Include in New Form dialog: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 



CounselAdvice 

03/29/1999 01:18:17 PM 

Yes 

No 

subform 

text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

"C&A" 
No 

affiliated_pty 
Text 

Comma, New Line 
New Line 

Please enter comma after each 

Affiliated Party 

Editable 

No 

Disabled 

No 

No 

aff_pty_counsel 
Text 

Comma, New Line 
New Line 

Please enter comma after each 

Affiliated Party 

Editable 

No 

Disabled 

No 

No 

type_project 

Keywords 
[Not Assigned] 
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Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Shared Field Reference: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 

Last Modification: * 
Include in Insert Subform list: 
Include in New Form dialog: 
Subcomponents: 
Hotspot 

Type: 

Caption: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Section Title: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Formula: 

Is Scripted: 
Shared Field Reference: 
Shared Field Reference: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Formula: 

Is Scripted: 



Editable 

Standard 

Yes 

Validity/Infringement 

Analysis and/or Opinion 

Counseling 

Advice 

License 

Contract 

Joint Development Agreement 

Transactional 

No 

Disabled 

No 

No 

comments 



Event orTask Closure 

03/29/1999 01:18:20 PM 

Yes . 

No 



Button 

Close This Task 
Yes, see below 
Untitled_SectionJ 
Section 
Comma 

Responsible Attorney 

Certificate: 

Computed 

No 

Disabled 
No 

resp_atty 
No 

ProtectFromArchive 

TEDateComplete 

RA_Sig 

Text 

[Not Assigned] 

Computed 

Yes 

Disabled 
No 

RA_Sig 
No 
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Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Section Title: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 



Untitled_Section2 

Section 
Comma 

IP Docket Manager Certificate: 

Computed 

No 

Disabled 
No 

"[DocketMgr]" 
No 

DocDateComplete 

Time 

11/03/1999 
(Not Assigned] 
Editable 
No 

Disabled 

No 

No 

IPD_Sig 

TexT 

[Not Assigned] 

Computed 

Yes 

Disabled 
No 

IPD_Sig 
No 

TEArchive 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
"no" 
No 

RACIosed 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
"no" 
No 

UnHideRA 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
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Default Value Formula: 
Is Scripted: 



"no" 
No 



Field: 



Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 



UnHideDM 

Text 

{Not Assigned] 

Editable 

No 

Disabled 



No 

-no" 

No 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(Globals) 

Option Public 
%INCLUDE"lsconst.lss" 
(Form) Event orTask Closure 

Sub Postopen(Source As Notesuidocument) 
End Sub 
(Button) Close This Task 
Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesU I Workspace 
Dim uidoc As NotesUIDocument 
Set uidoc - workspace. CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim doc2 As NotesDocument 
Dim maildoc As NotesDocument 
Dim view As Notes View 
Dim YesOrNo As Integer 
Dim OkCancel As Integer 

YesOrNo=Msgbox("Are you sure you want to close this Task?", MBJYESNO + 



If yesOrNo=IDNO Then 

Exit Sub 
End If 

'Unhide the closure info 

Call uidoc.ReldSetTextCUnHideRA", "yes") 

Call uidoc.FieldSetText( B RA_Sig n l session.CommonUserName) 

Call uidoc.RefreshHideFormulas 

Call uidoc.Refresh 

'Get some data from the base document and set the variables 

yAtty$=uidoc.FieldGetText("resp_atty n ) 

Project$=uidoc.FieldGetText ("Project") 

Client$=uidoc.FieldGetTextfClient_Name") 

ClientNo$=uidoc.FieldGetTextrClienLNo") 

Matter$=uidoc.FieldGetTextfMatter_Name n ) 



MBICONQUESTION + 
MBJDEFBUTTON2 + 
MB_APPLMODEL, "Close 
Task?") 



MatterNo$=uidoc.FieldGetTextC , Matter_No w ) 

TaskNameS^idoc.FieldGetTextfTask") 

Peop!e$=uidoc.FieldGetText^lit_route_ev ,, ) 

Sig$=uidoc.FieldGetText("RA_s[g") 

EDate=uidocPieldGetText(TEDateComplete") 

Ref$=uidoc.FieldGetText("Task") 

'Do some field validation 

If Sig$="" Or EDate="" Then 

Goto Bailout2 
End If 

•Lets check the sig to make sure It is the RA 
lfSig$<> yAtty$ Then 

Ok%=Messagebox("The name in the Responsible Attorney Certificate Signature field 

in incorrect." &_ 

" Only the Responsible Attorney may close this task!'\0+48+0+0,"lncorrect 

Information") 

lfOk%=1 Then 

Exit Sub 
End If 
End If 

'Electronically route the info to the default profile and the docket manager 

Set maildoc = New NotesDocument(db) 

maildoc.Form="MailNot" 

'Set the default routing (T o and CC fields) and bring up the form 

'If (Projetf ^"Prosecution: Trademark" Or Project$="Prosecutioh: Patent" OrProject$= 

"Prosecution: Copyright" Or 
Project$="Litigation") Then 

Set view = db.GetView( "(Routing Profile)" ) 
Set doc = view.GetFirstDocument 
Select Case Project$ 
Case "Prosecution: Patent" 

maildoc.SendTo=doc.Patent_Routing 
Case "Prosecution: Trademark" 

maildoc.SendTo=doc.TM_Routing 
Case "Presecution: Copyright" 

mialdoc.SendTo=doc.Cpy_Routing 
Case "Litigation" 

maildoc.SendTo=uidoc.FieldGetTextCTrt_route_ev ^, ) 
Case "Counselling and Advice" 

maildoc.SendTo=uidoc.FieldGetTextflit_route_ev") 
Case "Other 

maildoc.SendTo=uidoc.FieldGetTextriit_route_ev") 
End Select 

maildoc.CopyTo=Sender$ 
maildoc.Subject=Task Closure Notification" 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 

Dim rtStyle As NotesRichTextStyle 

Set rtStyle=session.CreateRichTextStyle 

With rtiBody 

rtStyle.bold=True 

.AppendStyle(rtStyle) 

.AppendText "Reference: " 

.AddTab 1 
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rtStyle.bold=Fa!se 
AppendStyle(rtStyle) 
.AppendText "Client - " + Clients 
.AddNewLine 1 
.AddTab 2 

.AppendText "Matter - " + Matters + " f + MatterNoS + T 
.AddNewLine 2 

.AppendText "Please note that a task pertaining to: the " + Projects + " project has 

been completed." 

.AddNewLine 1 

.AppendText "The Task pertains to: " + Ref$ + V 
.AddNewLine 2 
rtStyle.boId=True 
AppendStyle(rtStyle) 
.AppendText "Comments: " 
End With 'rtibody 

maiIdoc.HoldTxt=rtiBody.GetFormattedText(False, 70) 

Flag=workspace.DialogBoxC , (MailNot) w , True, True, False, False, False, False, 'Task 

Comp!etion'\Maildoc) 

lfFlag=True Then 

Set item=maildoc.GetFirstltem("EditTxt") 

rtStyle.boId=False 

Call rtibody.AppendStyle(rtStyle) 

Forall Text In item.values 

Call rtibody AppendText (Text) 

Call rtibody AddNewLine (1) 
End Forall 
With rtiBody 

AddNewLine 2 

AppendText "Please click here to view the Task- ; — >" 

AppendDocLink uidoc.document,"" 
AddNewLine 2 
AppendText AddCmtS 
End With 

maildoc.EditTxt=" ,, 
maildoc.Form="Memo" 
maildoc.HoldTxt="" 
Call maildoc.Send(False) 
End If 

'End If 'message to default group 

'Find out if we need to notify the Docket Manager 

YesOrNo%=Messagebox("Does this Task require notification of the Docket Manager and 

removal from the 
Docket?",4+32+0+0 l "Remove 
From Docket?") 

lfYesOrNo%=7Then 

Call uidoc.FieldSetTextfRACIosed", "yes") 
Call uidoc.FieldSetTextCTEArchive", "yes^ 
Call uidoc.FieldSetText("Status", "Completed") 

Call uidocFieldSetTextCIPD^Sig", "Removal from Docket not required") 
Call uidoc.FieldSetText("DocDateComplete w , Format(TEDateComplete, "Short Date")) 
Call uidco.FieldSetText("UnHideDM", "yes") 
Goto SaveAndClose 
End If 
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'Notify the docket manager 
maildoc.Form="MailNot" 
maildoc.SendTo="" 
maildoabody^'" 

maildoc.Subject-Task Closure Notification" 

maildoc.SendTo=doc.DocketMgr 

maildoc.CopyTo=Sender$ 

Set rtiBody .= New NotesRichTextltem (maildoc, "Body") 
WithrtiBody 

rtStyle.bold=True 

.AppendStyle(rtStyle) 

.AppendText "Reference: " 

.AddTab 1 

rtStyle.bo!d=False 

.AppendStyle(rtStyle) 

.AppendText "Client -" + Client$ 

.AddNewLine 1 

.AddTab 2 

.AppendText "Matter - " + Matter$ + " f + MatterNo$ + "]" 
.AddNewLine 2 

.AppendText "Please note that a task pertaining to: the " + Projects + " project has 

been completed." 

.AddNewLine 1 

.AppendText 'The Task pertains to: " + Ref$ + "." 
.AddNewLine 2 

.AppendText "Please remove any reference to this task from the docket." 
.AddNewLine 2 
rtStyle.bold=True 
.AppendText "Comments: " 
End With 'rtibody 

maildoc.HoldTxt=rtiBody.GetFormattedText(False, 70) 

Flag=workspace.DialogBoxC(MailNot)", True, True, False, False, False, False, "Task 

Completion",maildoc) 

lfFlag=True Then 

Set ftem=maildoc.GetFirstftemCEditTxt") 

rtStyle.botd=False 

Call rtiBody .AppendStyle(rtStyle) 

Forall Text In item.values 

Call rtibody.AppendText(text) 

Call rtibody.AddNewLine(1) 
End Forall 
With rtiBody 

.AddNewLine 2 

.AppendText "Please click here to view the Task information >" 

.AppendDocLink uidoc.document,"" 
.AddNewLine 2 
.AppendText AddCmt$ 
End With 

maiidoc.EditTxt="" 
maiidoc.Form="Memo" 
maildoc.HoldTxt="" 
Call maildoc.Send (False) 
End If 

Ok%=MessageboxCThis Task will be removed from the Active view when the Docket 
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Manager has removed it from 
the docket.",0+64+0+0, 
"Closure Successful") 

lfOk%=1Then 

Call uidoc.FieldSetText("RACIosed", "yes") 

Goto SaveAndClose 
End If 
•Else 

'Goto bailout 
'Bailout: 

, Ok%=Messagebox("No Notifications required for this Task Closure. M &_ 
"This Task will be removed from the Active view when the Docket Manager has 

removed it from the docket. 

",0+64+0+0,"Closure 

Successful") 

'lfOk%=1Then 

•Call uidoc.HeldSetTextfRACIosed", "yes") 

'Goto SaveAndClose 
'End If 
Bailout2: 

Ok%=Messagebox("Please enter a Closing Date for the Task and press the 'Close This 

Task 1 or 'Remove From Docket' 
button 

again!",Q+32+0+q,"Required 
Information") 

lfOk%=1 Then 

Exit Sub 
End If 
'End If 

'Start saving and closing the document for the last time. Do it here to avoid pressing the 

save/close button 

SaveAndClose: 

'Get some final values 

yTask$=uidoc.FieldGetText("Task") 

yAtty$=uidoc.FiefdGetText("resp_atty M ) 

TEDateComplete=uidoc.FieldGetTextCTEDateComplete") 

Define some other variables 

yhist$=uidoc.FieldGetTextCHistory") 

NewHist$ = "Modified on " + Date$+" "+Time$ +. " by " + Session.CommonUserName 
update$="N" 

'Set the PropClose field to Close so we can save the document 
Call uidoc.FieldSetText("PropClose" ? "Closed") 
'Check each field for change to compile the change history 
If xTask$ <> yTask$ Then 

NewHist$ = NewHist$ &Chr(010) + Task changed to: " + yTask$ + " from " + xTask$ 

update$="Y w 
End If 

If xAtty$ <> yAtty$ Then 

NewHistS = NewHist$ &Chr(010) + "Responsible Attorney changed to: " + yAtty$ + M 

from " + xAtty$ 

update$="Y" 
End If 

'check if task is being closed and write out to history 
If TEDateComplete <> "" Then 
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NewHist$ = NewHist$ &Chr(010) + "The Task was marked closed as of " + 

FormatCTEDateComplete, 
"Short Date") 

update$= n Y" 
End If 

'Append the new changes to the History 
lfupdate$="Y"Then 

Call uidoc.FieldSetTextfStatus J "."Modified") 

Call uidocFieldSetText ("History", NewHistS &Chr(010) + n - 1 



« &Chr(010) 

+ yhist$) 

End If 

•Save and close the document 

Call uidoc.Save 

Call uidoc.Close 
End Sub 
(Button) Remove from Docket 
Sub Click(Source As Button) 

Dim db As NotesOatabase 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uldoc = workspace.CurrentDocument 

Dim Session As New NotesSession 

Dim view As Notes View 

Dim routdoc As NotesDocument 

Set db=session.CurrentDatabase 

Sig$=uidoc.FieldGetText("IPD_Sig") 

EDate=uidoc.FieldGetText( n DocDateComplete") 

'Unhide the closure info 

Call uidoc.FieldSetTextCUnHideDM". "yes") 

Call uidoc.FieldSetTextflPD.Sig", session.CommonUserName) 

Call uidoc.RefreshHideFormulas 

Call uidoc.Refresh 

'Do some field validation 

If Sig$=" n Or EDate="" Then 

Ok%=Messagebox("Please provide a completion date for your action!" ,0+32+0+0, 

"Required Information") 

lfOk%=1Then 

Exit Sub 
End If 
End If 

'Lets check the sig to make sure it is the Docket Manager 
Set view = db.GetView( "(Routing Profile)" ) 
Set routdoc = view.GetFirstDocument 
If Sig$ <> routdoc.DocketMgr(O) Then 

Ok%=Messagebox("The name in the Docket Manager Certificate Signature field in 

incorrect." & 

" Only the Docket Manager may remove this Task from the 

Docketr.O+AS+O+O/'Incorrect 
Information") 

lfOk%=1 Then 

Exit Sub 
End If 
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End If 

'Set these fields to close the document 
Call uidoc.FieldSetText(TEArchive", "yes") 
Call uidoc.FieldSetText("Status", "Completed") 
Call uidoc.FieldSetTextCPropClose", "Closed") 

Messagebox "This Task has been closed and removed from the docket It will be now be 

removed from the Active views." 
,0+64+0+0 "Closure Successful" 

•Start saving and closing the document for the last time do it here to avoid pressing the 

save/close button 

'Get some final values 

yTask$=uidoc.FieldGetText("Task") 

yAtty$=uidoc.FieldGetText("resp_atty") 

DocDateComplete=uidoc.FieldGetTextCDocDateComplete") 

'Define some other variables 

yhist$=uidoc.FieldGetText("History") 

NewHist$ = "Modified on " + Date$+" "+Time$ + " by " + Session.CommonUserName 
update$="N" 

'Check each field for change to compile the change history 
If xTask$ <> yTask$ Then 

NewHist$ = NewHist$ &Chr(01 0) + "Task changed to: " + yTask$ + " from " + xTask$ 

update$="Y" 
End If 

If xAtty$ <> yAtty$ Then 

NewHist$ = NewHist$ &Chr(010) + "Responsible Attorney changed to: " + yAtty$ + " 

from " + xAtty$ 

update$="Y" 
End If 

'check if task is being closed and write out to history 

If DocDateComplete <> " Then 

NewHist$ = NewHist$ &Chr(010) + The Task was removed from the docket on " + 

Format(DocDateComp!ete, 
"Short Date") 

update$="Y" 
End If 

'Append the new changes to the History 
If update$='V Then 

Call uidoc.FieldSetText("Status_1 "."Modified") 

Call uidoc.FieldSetText ("History", NewHist$ &Chr(010) +" 



"&Chr(010) 

+ yhist$) . 

End If 

'Save and close the document 
Call uidoc.Save 
Call uidoc.Close 
End Sub 



Name: 

Last Modification: 
Include in Insert Subform list: 
Include in New Form dialog: 
Subcomponents: 



Litigation 

03/29/1999 01:18:22 PM 

Yes 

No 
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Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 



subform 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

"Litigation" 
No 

case__style 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

lit_type 

Keywords 

[Not Assigned] 

Editable 

Standard 

No 

Civil 

Administrative 
No 

Disabled 

No 

No 

civil_action_no 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

judge 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

appear_counsel 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

opp_counsel 



Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Shared Field Reference: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 

Last Modification: 
Include in Insert Subform list: 
Include in New Form dialog: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 



Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

co__counsel 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

comments 



NewClose 

03/29/1999 01:18:26 PM 

Yes , 

No 

Next_Action 

Keywords 

[Not Assigned] 

Editable 

Standard 

No 

No 

Disabled 

No 

No 

NextActionBy 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

DateDue 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 



Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Validation Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Input Validation Formula: 



Is Scripted: 
Field: 

Datatype: 
Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 



DateComplete 

Time 

11/03/1999 05:36:21 PM 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Priority 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

Urgent 

High 

Medium 

Low 

No 

Disabled 
No 

@lf(Priority = B - Select 
©FailurefPlease designate a 
priority."); ©Success); 
No 

Status 

Keywords 

[Not Assigned] 

Editable 

Standard 

No 

New 

Pending 

Completed 

No 

Disabled 
No 

"New" 

@lf(Status = "~ Select-"; 
@Failure("Please designate a 
status."); ©Success); 
No 

Hours 

Number 

General 

No 

No 

No 

[Not Assigned] 

Editable 

No 

Disabled 
No 
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Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 

Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Section Title: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 

Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Section Title: 
Field Type: 



No 

trakjd 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(NexLAction 1= ww ; 

©Unique; ""); 

No 

Summary 

Text 

[Not Assigned] 

Editable 

Yes 

Disabled 

No 

No 

Untitled_Sectionjl 

Section 
Comma 

Responsible Attorney 

Computed 

No 

Disabled 
No 

@!f(resp_atty_1 != m ; 
resp_attyjl; ,ra ); 
No 

TEDateComplete 

Time 

11/03/1999 
[Not Assigned] 
Editable 
Yes 

Disabled 

No 

No 

RA_Sig 
Text 

[Not Assigned] 

Editable 

Yes 

Disabled 

No 

No 

Untttled_Section2 

Section f 
Comma 

IP Docket Manager 
Computed 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 

Is Scripted: 
Hotspot 

Type: 

Caption: 

Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(Button) Close Subtask 

Sub Click(Source As Button) 
Dim db As Notes Data base 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 



No 

Disabled 
No 

"[DocketMgr]" 
No 

DocDateComplete 
Time 

11/03/1999 
[Not Assigned] 
Editable 
Yes 

Disabled 

No 

No 

IPD_Sig 
Text 

[Not Assigned] 

Editable 

Yes 

Disabled 

No 

No 

TEArchive 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(IPD_Sig l= - & RA_sig != 

nn. » yes «. ». no «J. 

No 

Button 

Close Subtask 
Yes, see below 
Archive 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

it n 

No 
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Set uidoc = workspace.CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

•Define some variables 

ActionHist$=uidoc.FieldGetTextC , Archive") 

OldAction$=uidoc.FieIdGetText( ,, Next_Action") 

Due$=uidoc.FieldGetTextfDateDue") 

Complete$=uidoc.FieldGetTextC , DateComp!ete M ) 

TraklD$=uidocPieldGetText("trakjd") 

Sum$=uidoc.FieldGetTextCSummary") 

NewActionHistS = "Action: " + OldAction$ &Chr(010) + Tracking ID: " + TraklD$ 

&Chr(01 0) +"Due on: " + Due$ 
&Chr(010) + "Closed on: " + 
Complete$ &Chr(010) + Sum$ 
&Chr(010) + "Certified closed 
by" + 

Session.CommonUserName 

•Append the closed action to the Archive 
lfOldAction$=""Then 

Ok%=Messagebox("There is no Action to closer^S+O+O/'ERROR") 
If Ok%=1 Then 

Exit Sub 
End If 
End If 

If Completes^" Then 

Ok%= MessageboxfYou must specify a completion dateP',0+48+0+0, "ERROR7 

lfOk%=1Then 
Exit Sub 

End If 
End If 

If Sum$="" Then 

Ok%=Me>ssagebox("You must provide a summary of action 

takenI",0+48+0+0,"ERROR") 

lfOk%=1 Then 

Exit Sub 
End If 
End If 

'Certify thaUhe action should be closed 

YesOrNo%=Messagebox("l " +Session.CommonUserName+ " certify that this subtask 

action is closed.",4+32+0+0, 
"Action Review Certification") 

lfYesOrNo%=6Then 

Call uidoc.FieldSetText ("Archive", NewActionHistS &Chr(010) +" — ■ 



&Chr(010) + ActionHist$) 

' Clear the subform for a new entry 

Call uidoc.FieldSetTextCNext_Action", ,m ) 

Call uidoc.FieldSetTextCDateDueY") 

Call uidoc.FieldSetText("Priority", m ) 

Call uidocFieldSetTextCHours","") 

Call uidocPie!dSetTextCNextActionBy M , ,,M ) 

Call uidoc.FieldSetTextfDateCompIete","") 

Call uidoc.Fie!dSetText("Status","On Going") 
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Call uidocPieldSetText( n trak_id7 ,,, ) 
Call uidoc.FieldSetTextrSummary M , ,m ) 
End If 
End Sub 

Name: 

Last Modification: 
Include in Insert Subform list: 
Include in New Form dialog: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 

JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 

Last Modification: 
Include in Insert Subform list: 
Include in New Form dialog: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Other 

03/29/1999 01:18:30 PM 

Yes 

No 

subform 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

"Other- 
No 

proj_descript 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

text_other 

Rich Text 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 



ProsCopyright 

07/28/1999 10:03:30 AM 

Yes 

No 

subform 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

"ProsCopyrighf 



Is Scripted: 
Shared Field Reference: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 



No 

serial_number 
app_type 

Keywords 
[Not Assigned] 
Editable 
Standard 
Yes 

@DbColumnC m ; m : 
"(Keywords)"; 11); 
No 

Disabled 
No 

@lf(appjype = "Group Daily 
Newspaper"; "G/DN"; appjype 
= "Group Periodicals"; "GR/CP"; 
appjype = "Performing Arts"; 
"PA"; appjype = "Renewal"; 
"RE"; appjype = "Serial"; "SE"; 
a PPJype = "Sound 
Recordings"; "SR"; appjype = 
Textual"; TX; appjype = 
"Visual Arts"; "VA"7app type); 
No 

related_sn 
Text 

(Serial Numbers) 

Editable 

No 

Disabled 

No . . 
No 

related_matters 

Number 

General 

No 

No 

No 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

author_cw 
Text 

[Not Assigned] 

Editable 

No ' 

Disabled 

No 

No 

appearance_counsel 
Keywords 
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Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 

Last Modification: 
Include in Insert Subform list: 
Include in New Form dialog: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: / 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



[Not Assigned] 

Editable 

Standard 

Yes 

No 

Disabled 

No 

No 

owner_cw 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

transfer_cw 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 



ProsPatent 

07/28/1999 10:03:30 AM 

Yes 

No 

subform 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

"ProsPatent" 
No 

clients_billing 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

@lf(@lsNewDoc; clients_billing; 

@GetDocField($Ref; 

"clients_billing")); 
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Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type? 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 
Help Description: 
Field Type: 

Keyword User Interface: 



No 

inventor 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

@lf(@lsNewDoc; inventor; 

@GetDocField($Ref; 

"inventor")); 

No 

serial_n umber 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

@lf(@lsNewDoc; 
serial_numben 
@GetDocField($Ref; 
"serial number)); 
No 

related_matter_no 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

@lf(@lsNewDoc; 
related_matter_no; 
@GetDocField($Ref t 
"related_matter_no")) ; 
No 

pofa_fa 
Text" 

[Not Assigned] 

Editable 

No 

Disabled 
No 

@lf(@lsNewDoc; pofa_fa; 

@GetDocField($Ref; 

"pofa_fa")); 

No 

appjtype 

Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Standard 
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Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Shared Field Reference: 
Hotspot 

Type: 

Caption: 

Formula: 

Field: 

Datatype: 

Help Description: ' 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 



Yes 

, @DbColumnC m ; : ""; 
"(Keywords) 11 ; 13); 
No 

Disabled 

No 

No 

related_apps 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
No 
PoA 

Button 
Patent Detail 

@DialogBoxf(Status - Patent)"; 
[AutoVertFit] : [AutoHorzFit] : 
[NoNewFietds]; "Name Fields"); 
filing_date 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

term_date 

Text" 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

why_term 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

maint 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 
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JavaScript & HTML Code: 

[None] 
LotusScript Code; 

[None] 

Name: 

Last Modification: 
Include in Insert Subform list: 
Include in New Form dialog: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Formula: 

Is Scripted: 
Shared Field Reference: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Shared Field Reference: 
Shared Field Reference: 
Field: 

Datatype: 

Help Description: 
. Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Hotspot 
Type: 
Caption: 
Formula: 



Field: 

Datatype: 

Help Description: 

Field Type: 



ProsTM 

07/28/199910:03:31 AM 

No 

No 

subform 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

"ProsTM" 
No 

serial_number 

tm_app_type 

Keywords 

[Not Assigned] 

Editable 

Standard 

Yes 

©DbColumnC: nM : 
"(Keywords)"; 12); 
No 

Disabled 

No 

No 

related_apps 

related_matter_no 

tm 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Button 

Attach Image 

@Command([EditNexlF 
ield]);@Command([EdfflnsertFil 
eAttachmentD; 
mark 
Rich Text 
[Not Assigned] 
Editable 
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Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption; 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Shared Field Reference: 
Hotspot 

Type: 

Caption: 

Formula: 



Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 



No 

Disabled 

No 

No 

goods_serv 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

classes 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

owner 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

pofa_fa 
Button 

Trademark Detail 

@DialogBox("(Status - 

Trademark)"; [AutoVertFit] : 

[AutoHorzFit] : [NoNewFields]; 

"Name Fields"); 

first_use 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

i_state_use 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

filing_date 
Text 
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Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



Navigator Information: 

Name: 

Last Modification: 
Comment: 
Snap to Grid: 
Grid Size: 
Show Grid: 

Auto adjust panes at runtime: 
Web browser compatible: 



[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

termination 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

teim_date 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

how_term 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

renewal 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 



NewRAByEvent 

03/29/1999 03:06:57 PM 

[Not Assigned] 

Yes 

4 

No 

Yes 

Yes 



Initial View or Folder: 
Background Color: 
Subcomponents: 
GraphicButton 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 



Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 

Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 



By Resp AttorneyVEvent 
RGB Value: 0 0 0 



GraphicButton2 

[None Assigned] 

Yes 

Yes 

No 

No 

No 

Textl 

Client View (by Name)Client 
View (by Number)Responsible 
Attorney ViewsTask Views View 
CalendarReports 
. Yes 
Yes 
Yes 
No 
No 

Textl 1 

Exit DatabaseComment/Trouble 

ReportDatabase Administration 

Yes 

Yes 

Yes 

No 

No 

Textl 2 

By Matter 

Yes 

Yes 

Yes 

No 

No 

Textl 3 

By Project 

Yes 

Yes 

Yes 

No 

No 

Textl 4 

By Open Task 

Yes 

Yes 

Yes 
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Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
HotspotRectangle 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
t Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
. Caption: 
Visible: 
Selectable: 

Lock size and position: 



No 
No 

Text15 

By Open Event 

Yes 

Yes 

Yes 

No 

No 

Text16 

By Open Task & Event 

Yes 

Yes 

Yes 

No 

No . 

HotspotRectang(e2 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator 
NewClientNameByName 

HotspotRectangle3 

[None Assigned] 

Yes 

Yes 

Yes 

No . 

No 

Open Navigator 
NewClient#ByName 

HotspotRectangle4 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator 
NewRAByProject 

HotspotRectangle5 

[None Assigned] 

Yes 

Yes 

No 



Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 
HotspotRectangle 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Formula: 



HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
LotusScript Code: 



No 
No 

Open Navigator 
NewRAByMatter 

HotspotRectangle6 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator NewRAByTask 

HotspotRectangle7 

[None Assigned] 

Yes 

Yes 

No 

No 

No 

Open Navigator. 
NewTaskbyClient 

Hotsp6tRectangle8 

[None Assigned] 

Yes 

Yes 

No 

No 

No 

Open Navigator 
NewCalByEvents 

HotspotRectangle9 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

@Command([FileClose 
Window]); 

HotspotRectanglelO 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 
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Sub Click(Source As Navigator) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim maildoc As NotesDocument 
Set maildoc = New NotesDocument(db) 
maildoc.Form="MailNot" 
maildoc.Subject= H IP Agenda Trouble Report" 
Dim recipients( 0 To 2 ) As String 
recipients( 0) = "thomson@qsmi.com" 
recipients( 1 ) = "hoagland@qsmi.com" 
recipients( 2 ) = "Patricia L Mansuy" 
maildoc.SendTo= recipients 
•Start to compile the body field 
Set rtiBody = New NotesRichTextltem (maildoc, M Body") 
WithrtiBody 

.AppendText "This TR was submitted by: n + Session.CommonUserName 
.AddNewLine 2 
End With 'rtibody 

Flag=workspace.DialogBox("(MailNot)" t True, True, False, False, False, False, "IP 



lfFlag=True Then 

Set item= maildoc.GetFirstltemfEditTxt") 

Forall Text In item. values 

Call rtibody.AppendText (text) 
Call rtibody .AddNewLine (1) 

End Forall 

maildoc.EditTxt="" 

maildoc.Form="Memo" 

Call maildoc.Send( False ) 
End If'dialogbox for message to default addresses. 



Agenda Trouble 
Report",Maildoc) 



End Sub 



HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 



Yes 

Yes 

Yes 

No 

No 



Open Navigator Admin Nav 



HotspotRectanglel 1 
[None Assigned] 



HotspotRectangte 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 



Open Navigator: ReportNav 



Yes 
Yes 
No 
No 
No 



HotspotRectanglel 2 
[None Assigned] 



HotspotRectangle 



374 



Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 



Name: 

Last Modification: 
Comment: 
Snap to Grid: 
Grid Size: 
Show Grid: 

Auto adjust panes at runtime: 
Web browser compatible: 
Initial View or Folder 
Background Colon 
Subcomponents: 
GraphicButton 

Name: 

Caption: 

Visible: 

Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
GraphicButton 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Formula: 



Text 

Name: 
Caption: 
Visible: 
Selectable: 



HotspotRectangle13 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator: 
NewRABy EventTask 

Admin Nav 

03/29/1999 03:06:58 PM 

[Not Assigned] 

No 

0 

No 

Yes 
Yes 

AH Docs\System Docs 
RGB Value: 0 0 0 



GraphicButtonS 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No . 

GraphicButton4 

[None Assigned] 

Yes 

Yes 

No 

No 

No 

Text18 

Exit Database 

Yes 

Yes 

Yes 

No 

No 

@Command([FileClose 
Window]); 

Jext19 

Comment/Trouble Report 

Yes 

Yes 



375 



Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Button 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
LotusScript Code: 
Use "SortingLibrary" 
Sub Click(Source As Navigator) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim Session As New NotesSession 

Dim view As Notesvlew 

Dim doc As NotesDocument 

Dim nn As NotesName 

Set db=session.CurrentDatabase 

Set view=db.GetViewC , (Routing Profile)") 

Set doc=view.GetFirstDocument 

flag= workspace.DialogBoxfRouting", True, True, 



Yes 
No- 
No 

Text20. 

Database Administration 

Yes 

Yes 

Yes 

No 

No 

Text21 

Data baseAdminist ration 
Yes 
Yes 
Yes 
No 
No 

Button5 

Edit Routing Profiles 

Yes 

Yes 

Yes ■! 

No 

Yes 



False, False, False, False, "Default 
Routing Profile", doc) 



If flag=True Then 

'Set up the array and the counter 
Dim SALastNameFirst 0 As String 
inc=0 

'First let's sort the resp atty field 

Set iChoices=doc.GetFirstltemCProAtty") 

Gosub Sort 

iChoices.Remove 

Set iChoices = New Notesltem (doc, "ProAtty", saChoices) 
iChoices.lsSummary = True 
doc.save True, True 

'Second we process the new client routing field the same way as the resp atty field 



376 



inc=0 

SetiChoices=doc.GetFirstltem( n NewClient_Routing ,, ) 

Gosub Sort 

iChoices.Remove 

Set iChoices = New Notesltem(doc f "NewClientJRouting", saChoices) 

iChoices.lsSummary=True 

doc.save True, True 
End If 
Exit Sub 

•This is the sorting routine 
* Sort: 

saChoices=iChoices.values 

Redim SALastNameFirst (Ubound (saChoices)) 

Counter=0 

Forall temp In saChoices 

Set nn = New NotesName(temp) 

vaLast=Evaluate({@RightBackn + nn.Common + {";" ")}) 

LastFirst$=vaLast(0) + " *° + nn.Common 

saLastNameFirst (counter)=LastFirst$ 

counter=counter+1 
End Forall 

Call qsortS(SALastNameFirst, 0, Ubound(SALastNameFirst)) 
Redim saChoices (Ubound (SALastNameFirst)) > 
counter=0 

Forall temp2 In saLastNameFirst 

vaName=Evaluate({@RightBackO + temp2 + f 1 ;"*)}) 

FirstLast$=vaName(0) 

saChoices(counter)=FirstLast$ 

counter=counter+1 
End Forall 
Return 
End Sub 

Button 

Name: Button7 
Ca P llon: Edit Project Keywords 

Visible: Yes 
Selectable: Yes 
Lock size and position: Yes 
Highlight when touched: No 
Highlight when clicked: Yes 
LotusScript Code: 
Use "Sorting Library" 
Sub Click(Source As Navigator) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim Session As New NotesSession 

Dim view As Notesview 

Dim doc As NotesDocument 

Dim nn As NotesName 

Set db=session.CurrentDatabase 

Set view=db.GetView( ,, (Keywords) ,, ) 

Set doc=view.GetFirstDocument 

Dim uidoc As NotesUIDocument 



Set uidoc = workspace.CurrentDocument 
Set db=session.CurrentDatabase 
doc.Hide="EventKeyNo n 

flag= workspace.DialogBoxfEvProjKeys", True, True, False, False, False, False, 

"Keyword Profiles", doc) 

If flag=True Then 

doc.Hide= ,,M 

doc.save True, True 
End If 
End Sub 

Button 

Name: Button8 
Caption: Edit Event Keywords 

Visible: Yes 
Selectable: Yes 
Lock size and position: Yes 
Highlight when touched: No 
Highlight when clicked: No 
Highlight when touched: No 
Highlight when clicked: Yes 
LotusScript Code: 
Use "SortingLibrary" 
Sub Click(Source As Navigator) 

Dim db As NotesDatabase 

Dim workspace As New NotesU I Workspace 

Dim Session As New NotesSession 

Dim view As Notesview 

Dim doc As NotesDocument 

Dim nn As NotesName 

Set db-session.CunrentDatabase 

Set view=db.GetView( n (Keywords) n ) 

Set doc=view.GetFirstDocument 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace.CurtentDocument 

Set db=session.CurrentDatabase 

doc.Hide= rt ProjKeyNo" 

flag= workspace.DialogBoxfEvProjKeys", True, True, False, False, False, False, 

"Keyword Profiles", doc) 

If flag=True Then 
doc.Hide =,m 
doc.save True, True 
End If 
End Sub 
Rectangle 

Name: Rectangle3 
Caption: [None Assigned] 

Visible: Yes 
Selectable: Yes 
Lock size and position: No 
Highlight when touched: No 
Highlight when clicked: No 
Text 

Name: Text23 



. Caption: Client View (by Name)Ciient 

View (by IMumber)Responsible 
Attorney ViewsTask Views View 
CalendarReports 

Visible: Yes 

Selectable: Yes 

Lock size and position: Yes 

Highlight when touched: No 

Highlight when clicked: No 
Button 

Name: Button9 
Caption: Edit Archive Profile 

Visible: Yes 
Selectable: Yes 
Lock size and position: Yes 
Highlight when touched: No 
Highlight when clicked: Yes 
LotusScript Code: 
Use "SortingLibrary" 
Sub Click(Source As Navigator) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim Session As New NotesSession 

Dim view As Notesview 

Dim profile As NotesDocument 

Dim nn As NotesName 

Set db=session.CurrentDatabase 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace. CurrentDocument 

Set view = db.GetViewCArchiving") 

key = "Archive Profile" 

Set profile = view.GetDocumentByKey(key) 

If profile Is Nothing Then 

flag= Messagebox("You must set up an Archive Profile before you can archive. " 

&_ 

" Would you like to set up an Archive Profile now?",4 + 32 + 0 + 0, "Archiving") 
lfflag=6Then 

Call workspace.ComposeDocument("" t "", "ArchiveProfile") 
Else 

Exit Sub 
End If 
Else 

flag= workspace.DialogBoxf 'ArchiveProfile", True, True, False, False, False, False, 

"Archive Profile", profile) 

If flag=True Then 

If profile ArchiveServer(0)="" Then 

flag=Msgbox ("You must provide the name of the Archive Server. Profile 

NOTsaved!",0 + 16 + 0 + 0, 
"Missing Value") 

If flag=True Then 

Exit Sub 
End If 
End If 



379 



If profile.ArchivePath(0)= ,m Then 
flag=Msgbox ("You must provide 



lfflag=True Then 

Exit Sub 
End If 
End If 
End If 

profile.save True, True 
End If 
End Sub 

Text 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
HotspotRectangle 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 



the Archive database name and the path to 
the database. Profile NOT 
saved !", 0 + 16 + 0 + 0, "Missing 
Value") 



Text24 

View Archive Log 

Yes 

Yes 

Yes 

No 

No 

HotspotRectanglel 

[None Assigned] 

Yes ; 

Yes 

Yes 

No 

No 

Open Navigator: 
NewClientNameByName 

HotspotRectangle4 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator: 
NewClient#ByName 

HotspotRectangleS 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator: 
NewRAByMatter 

HotspotRectangleS 
[None Assigned] 



380 



Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Formula: 



HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 

Highlight when touched: 

Highlight when clicked: 

Highlight when touched: 

Highlight when clicked: 

LotusScript Code: 

Sub Click(Source As Navigator) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim maildoc As NotesDocument 
Set maildoc = New NotesDocument(db) 
maildoc.Form= n MailNot M 
maildoc.Subject="IP Agenda Trouble Report" 
Dim recipients( 1 To 3 ) As String 
recipients( 1 ) = "thomsonQqsmi.com" 
recipients( 2 ) = "hoagland@qsmi.com'' 
recipients( 3 ) = "Patricia L. Mansuy" 



Yes 

Yes 

Yes 

No 

No 

Open Navigator 
NewTaskbyClient 

HotspotRectangle7 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator 
NewCalByEvents 

HotspotRectangle8 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

@Command([FileClose 
Window]); 

HotspotRectangle9 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

No 

No 



381 



maildoc.SendTo= recipients 
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Dim doc As NotesDocument 
Dim maildoc As NotesDocument 
Set maildoc = New NotesDocument(db) 
maildoc.Form="MailNot" 
maildoc.Subject="IP Agenda Troubie Report" 
Dim recipients( 1 To 3 ) As String 
recipients( 1 ) = "thomson@qsmi.com" 
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maildoc. SendTo= recipients 
'Start to compile the body field 
Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
WithrtiBody 

.AppendText This TR was submitted by: " + Session.CommonUserName 
.AddNewLine 2 
End With 'rtibody 
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Set item= maildoc.GetFirstltemfEditTxt") 

Forall Text In item.values 

Call rtibody.AppendText (text) 
Call rtibody.AddNewLine (1) 

End Forall 

maildoc.EditTxt="" 

maildoc.Fonm="Memo" 

Call mai!doc.Send( False ) 
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recipients( 2 ) = "hoagland@qsmi.com" 
recipients( 3 ) = "Patricia L Mansuy" 
maildoc.SendTo= recipients 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

.AppendText 'This TR was submitted by: " + Session.CommonUserName 
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Sub Click(Source As Navigator) 
Dim db As NotesDatabase 
Dim workspace As New NotesU I Workspace 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim maildoc As NotesDocument 
Set maildoc = New NotesDocument(db) 
maildoc.Form="MailNot" 
maildoc.Subject="IP Agenda Trouble Report" 
Dim recipients( 1 To 3 ) As String 
recipients( 1 ) = "thomson@qsmi.com" 
recipients( 2 ) = "hoagland@qsmi.com" 
recipients( 3 ) = "Patricia L. Mansuy" 
maildoc.SendTo= recipients 
•Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

.AppendText This TR was submitted by: " + Session.CommonUserName 
.AddNewLine 2 
End With 'rtibody 

Flag=workspace.DialogBoxf(MailNot)" t True, True, False, False, False, False, "IP 
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lfFlag=True Then 

Set item= maildoc.GetFirstltemfEditTxt") 
Forall Text In item.values 

Call rtibody.AppendText (text) 



392 



Call rtibody.AddNewLine (1) 
EndForall 
maildoc.EditTxt= ,m 
maildoc.Form-'Memo" 
Call maildoc.Send( False ) 
End If 'dialogbox for message to default addresses. 
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Sub Click(Source As Navigator) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim maildoc As NotesDocument 
Set maildoc = New NotesDocument(db) 
maildoc.Form= n MailNot" 
maiidoc.Subject="IP Agenda Trouble Report" 
Dim recipients( 1 To 3 ) As String 
recipients( 1 ) = "thomson@qsmi.com" 
recipients* 2 ) = "hoagland@qsmi.com" 
recipients( 3 ) = "Patricia L Mansuy" 
maildoc.SendTo= recipients 
'Start to compile the body field 
Set rtiBody = New NotesRichTextltem (maildoc, "Body 11 ) 
WrthrtiBody 

.AppendText This TR was submitted by: " + Session.CommonUserName 
.AddNewLine 2 
End With 'rtibody 

Flag=workspace.DialogBoxC f (MailNot)", True, True, False, False, False, False, "IP 
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Call maildoc.Send( False ) 
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Dim workspace As New NotesUIWorkspace 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim maildoc As NotesDocument 
Set maildoc = New NotesDocument(db) 
maildoc.Form= n MailNot" 
maildoc.Subject="IP Agenda Trouble Report" 
Dim recipients( 1 To 3 ) As String 
recipients( 1 ) = "thomson@qsmi.com" 
recipients( 2 ) = "hoagland@qsmi.com" 
recipients( 3 ) = "Patricia L. Mansuy" 
mai!doc.SendTo= recipients 
•Start to compile the body field 
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Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

.AppendText This TR was submitted by: " + Session.CommonUserName 
.AddNewLine 2 
End With Ytibody 

Flagsworkspace.DialogBoxCXMailNot)", True, True, False, False, False, False, M IP 

Agenda Trouble 
ReporT.Maildoc) 

If Flag=True Then 

Set item= maildoc.GetFiretltem("EditTxt*') 
Forall Text In item.values 

Call rtibody .AppendText (text) 
Call rtibody.AddNewLine (1) 
End Forall 
maildoc.EditTxt= m, 
maildoc.Form= M Memo" 
Call mai!doc.Send( False ) 
End If 'dialogbox for message to default addresses. 
End Sub 
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LotusScript Code: 

Sub Click(Source As Navigator) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim maildoc As NotesDocument 
Set maildoc = New NotesDocument(db) 
maildoc.Form="MailNot" 
maildoc.Subject="IP Agenda Trouble Report" 
Dim recipients( 1 To 3 ) As String 
recipients( 1 ) = "thomson@qsmi.com" 
recipients( 2 ) = "hoagland@qsmi.com" 
recipients( 3 ) = "Patricia L. Mansuy" 
maildoc. SendTo= recipients 
•Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
WithrtiBody 

.AppendText 'This TR was submitted by: " + Session.CommonUserName 
.AddNewLine 2 
End With 'rtibody 

Flag^orkspace.DialogBoxCXMailNot)", True, True, False, False, False. False, "IP 



lfFlag=True Then 

Set item= maildocGetFirstltemf EditTxt") 
Forall Text In item.values 

Call rtibodyAppendText (text) 
Call rtibody AddNewLine (1) 
End Forall 
maildoc.EditTxt="" 
maildoc.Form="Memo" 
Call maildoc.Send( False ) 
End If 'dialogbox for message to default addresses. 



Agenda Trouble 
Report",Maildoc) 



End Sub 



HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 



Yes 

Yes 

Yes 

No 

No 



Open Navigator: Admin Nav 



HotspotRectangle9 
[None Assigned] 



HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 



Yes 
Yes 
Yes 
No 



HotspotRectanglel 0 
[None Assigned] 



403 



Highlight when clicked: 
Simple Action: 

Name: 

Last Modification: 
Comment: 
Snap to Grid: 
Grid Size: 
Show Grid: 

Auto adjust panes at runtime: 
Web browser compatible: 
Initial View or Folder: 
Background Color: 
Subcomponents: 

GraphicButton 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 



Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 

Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 

Text 
Name: 
Caption: 
Visible: 
Selectable: . 
Lock size and position: 
Highlight when touched: 
Highlight when clicked: 

Text 
Name: 
Caption: 



No 

Open Navigator: ReportNav 

NewClient#ByName 

03/29/1999 03:07:06 PM 
[Not Assigned] 
Yes 
N 5 
No 
Yes 
Yes 

Client View by Number! 
RGB Value: 0 0 0 



GraphicButton2 

[None Assigned] 

Yes 

Yes 

No 

No 

No 

TexM . 

Client View (by Name)Client 

View (by Number)Responsible 

Attorney ViewsTask ViewsView 

CalendarReports 

Yes 

Yes 

Yes 

No 

No 

Text11 

Exit DatabaseComment/T rouble 

ReportDatabase Administration 

Yes 

Yes 

Yes 

No 

No 

TexM 2 

Matters (By Name) 

Yes 

Yes 

Yes 

No 

No 

Text! 3 

Matters (By Number) 



404 



Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
HotspotRectangle 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 
HotspotRectangle 
. Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 



Yes 

Yes 

Yes 

No 

No 

HotspotRectangle2 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator: 
NewClientNameByName 

HotspotRectangle3 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator NewClient#By# 

HotspotRectangle4 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator 
NewRAByMatter 

HotspotRectangleS 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator. 
NewTaskbyClient 

HotspotRectangle6 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator 
NewCaiByEvents 



405 



HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Formula: 



Yes 

Yes 

Yes 

No 

No 



HotspotRectangle7 
[None Assigned] 



@Command([FileClose 



Window]); 



HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 



Yes 

Yes 

Yes 

No 

No 



HotspotRectangle8 
[None Assigned] 



LotusScript Code: 

Sub Click(Source As Navigator) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim maildoc As NotesDocument 
Set maildoc = New NotesDocument(db) 
maildoc.Form="MailNot" 
maildoc.Subject="IP Agenda Trouble Report" 
Dim recipients( 1 To 3 ) As String 
recipients( 1 ) = "thomson@qsmi.com" 
recipients( 2 ) = "hoagland@qsmi.com" 
recipients( 3 ) = "Patricia L. Mansuy" 
maildoc.SendTo= recipients 
'Start to compile the body field 

Set rtiBody » New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

.AppendText This TR was submitted by: " + Session.CommonUserName 
.AddNewLine2 
End With 'rtibody 

Flag=workspace.DialogBox("(MaiINot)" t True, True, False, False, False, False, "IP 



lfFlag=True Then 

Set rtem= maildoc.GetFirstltem^EditTxt ,, ) 

Forall Text In item. values 

Call rtibody.AppendText (text) 
Call rtibody.AddNewLine (1) 

End Forall 

maildoc.EditTxt="" 

maildoc.Form="Memo" 

Call maildoc.Send( False ) 



Agenda Trouble 
Report",MaiIdoc) 



406 



End If 'dialogbox formessage to default addresses. 
End Sub 
HotspotRectangle 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 
HotspotRectangle 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

Name: 

Last Modification: 
Comment: 
Snap to Grid: 
Grid Size: 
Show Grid: 

Auto adjust panes at runtime: 
Web browser compatible: 
Initial View or Folder 
Background Colon 
Subcomponents: 

GraphicButton 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 



Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
HighHght when clicked: 
Text 
Name: 



HotspotRectangle9 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator Admin Nav 

HotspotRectanglel 0 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator ReportNav 

NewClient#By# 

03/29/1999 03:07:07 PM 

[Not Assigned] 

Yes 

5 

No 

Yes 

Yes 

Client View by Number2 
RGB Value: 0 0 0 



GraphicButton2 

[None Assigned] 

Yes 

Yes 

No 

No 

No 

Textl 

Client View (by Name)Client 

View (by Number)Responsible 

Attorney ViewsTask ViewsView 

CalendarReports 

Yes 

Yes 

Yes 

No 

No 

Textl 1 



407 



Caption: 

Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
HotspotRectangie 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangie 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangie 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangie 



Exit DatabaseComment/Trouble 

ReportDatabase Administration 

Yes 

Yes 

Yes 

No 

No 

Text12 

Matters (By Name) 

Yes 

Yes 

Yes 

No 

No 

Text13 

Matters (By Number) 

Yes 

Yes 

Yes 

No 

No 

Hotsp6tRectangle2 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator 
NewClientNameByName 

HotspotRectangle3 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator 
NewClient#ByName 

HotspotRectangle4 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator 
NewRAByMatter 



408 



Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Formula: 



HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 

Highlight when touched: 

Highlight when clicked: 

LotusScript Code: 

Sub Click(Source As Navigator) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim maildoc As NotesDocument 
Set maildoc = New NotesDocument(db) 
maildoc.Form-'MailNot" 
maildoc.Subject-MP Agenda Trouble Report" 
Dim recipients( 1 To 3 ) As String 
recipients( 1 ) = "thomson@qsmi.com" 
recipients( 2 ) = "hoagland@qsmi.com n 
recipients( 3 ) = "Patricia L. Mansuy" 



HotspotRectangleS 

(None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator 
NewTaskbyClient 

HotspotRectangle6 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator 
NewCalByEvents 

HotspotRectangle7 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

@Command([FileClose 
Window]); 

HotspotRectangle8 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 



409 



maildoc.SendTo= recipients 

'Start to compile the body field 
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maildoc.Subject="IP Agenda Trouble Report" 
Dim recipients( 1 To 3 ) As String 
recipients( 1 ) = "thomson@qsmi.com" 
recipients( 2 ) « "hoagland@qsmi.com" 
recipients( 3 ) = "Patricia L Mansuy" 
maildoc.SendTo= recipients 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

.AppendText This TR was submitted by: w + Session.CommonUserName 
.AddNewLine 2 
End With 'rtibody 

Flag=workspace.DialogBoxr(MaiINot) M , True, True, False, False, False, False, "IP 
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Call maildoc.Send( False ) 
End If 'dialogbox for message to default addresses. 
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Dim Session As New NotesSession 
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Dim doc As NotesDocument 
Dim maildoc As NotesDocument 
Set maildoc = New NotesDocument(db) 
maildoc.Form= M MailNot" 
maildoc.Subject= M IP Agenda Trouble Report" 
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recipients( 1 ) = "thomson@qsmi.com" 
recipients( 2 ) = "hoagland@qsmi.com" 
recipients( 3 ) = "Patricia L. Mansuy" 
maildoc.SendTo= recipients 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

.AppendText 'This TR was submitted by: " + Session.CommonUserName 
.AddNewLine 2 
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Call rtibody.AppendText (text) 
Call rtibody.AddNewLine (1) 
End Forall 
maildoc.EditTxt= nn 
maildoc.Fornn= n Memo ,t 
Call maildoc.Send( False ) 
End If'dialogbox for message to default addresses. 
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maildoc.Form="MailNot" 
maildoc.Subject-'IP Agenda Trouble Report" 
Dim recipients( 1 To 3 ) As String 
recipients( 1 ) = "thomson@qsmi.com" 
recipients( 2 ) = "hoagIand@qsmi.com" 
recipients( 3 ) = "Patricia L. Mansuy" 
maildoc.SendTo= recipients 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

.AppendText "This TR was submitted by: " + Session.CommonUserName 
.AddNewLine 2 
End With 'rtibody 

Flag^orkspace.DialogBox("(MailNot)", True, True, False, False, False, False, "IP 



If Flag=True Then 

Set item= maildoc.GetFirstltemC'EditTxt") 

Forall Text In item.values 

Call rtibody. AppendText (text) 
Call rtibody .AddNewLine (1) 

End Forall 

maildoc.EditTxt="" 
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Call maildoc. Send( False ) 
End If 'dialogbox for message to default addresses. 



Agenda Trouble 
Report",Maildoc) 



End Sub 



HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 



Yes 

Yes 

Yes 

No 

No 



Open Navigator Admin Nav 



HotspotRectangle 1 1 
[None Assigned] 



HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 



Yes 

Yes 

No 

No 

No 



HotspotRectangle12 
[None Assigned] 



Open Navigator ReportNav 



HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 



Open Navigator 



Yes 

Yes 

Yes 

No 

No 



HotspotRectangle 1 3 
[None Assigned] 



426 



NewRAByMatter 



Name: 

Last Modification: 
Comment: 
Snap to Grid: 
Grid Size: 
Show Grid: 

Auto adjust panes at runtime: 
Web browser compatible: 
Initial View or Folder: 
Background Color 
Subcomponents: 

GraphicButton 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 



Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 

Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 



NewRAByTask 

03/29/1999 03:07:09 PM 

[Not Assigned] 

Yes 

4 

No 

Yes 

Yes 

By Resp AttomeyYTask 
RGB Value: 0 0 0 



GraphicButton2 

(None Assigned] 

Yes 

Yes 

No 

No 

No 

Textl 

Client View (by Name)Client 

View (by Number)Responsible 

Attorney ViewsTask ViewsView 

CalendarReports 

Yes 

Yes 

Yes 

No 

No 

Textl 1 

Exit DatabaseComment/Trouble 

ReportDatabase Administration 

Yes 

Yes 

Yes 

No 

No 

Text12 

By Matter 

Yes 

Yes 

Yes 

No 

No 

Textl 3 
By Project 
Yes 



427 



Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
H ots pot Re eta ng le 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 



Yes 
Yes 
No 
No 

TextU 

By Open Task 

Yes 

Yes 

Yes 

No 

No 

Text15 

By Open Event 

Yes 

Yes 

Yes 

No 

No 

Text16 

By Open Task & Event 

Yes 

Yes 

Yes 

No 

No 

HotspotRectangle2 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator 
NewClientNameByName 

HotspotRectangle3 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator 
NewClient#ByName 

HotspotRectangle4 

[None Assigned] 

Yes 

Yes 

Yes 



Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Formula: 



No 
No 

Open Navigator. 
NewRAByProject 

HotspotRectangleS 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator: 
NewRAByEvent 

HotspotRectangle6 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator 
NewRAByEventTask 

HotspotRectangle7 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator 
NewTaskbyClient 

HotspotRectangle8 

[None Assigned] 

Yes 

Yes 

No 

No 

No 

Open Navigator 
NewCalByEvents 

HotspotRectangle9 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 



@Command([RleClose 



429 



Window]); 



HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 



Yes 

Yes 

Yes 

No 

No 



HotspotRectanglelO 
[None Assigned] 



LotusScript Code: 

Sub Click(Source As Navigator) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim maildoc As NotesDocument 
Set maildoc = New NotesDocument(db) 
maildoc.Form-'MailNot" 
maildoc.Subject="IP Agenda Trouble Report" 
Dim recipients( 1 To 3 ) As String 
recipients( 1 ) = "thomson@qsmi.com" 
recipients( 2 ) = "hoagland@qsmi.com" 
recipients( 3 ) = "Patricia L. Mansuy" 
maildoc.SendTo^ recipients 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

.AppendText "This TR was submitted by: " + Session.CommonUserName 
.AddNewLine 2 
End With 'rtibody 

Flag=wor1cspace.pialogBox("(MailNot)", True, True, False, False, False, False, "IP 



lfFlag=True Then 
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Forall Text In item.values 

Call rtibody AppendText (text) 
Call rtibody AddNewLine (1) 

End Forall 
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Call maildoc.Send( False ) 
End If 'dialogbox for message to default addresses. 
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Set maildoc = New NotesDocument(db) 

maildoc.Form^MailNot" 

maildoc.Subject="IP Agenda Trouble Report" 

Dim recipients( 1 To 3 ) As String 

recipients( 1 ) = "thomson@qsmi.com" 

recipients( 2 ) = "hoagland@qsmi.com" 

recipients( 3 ) = "Patricia L. Mansuy" 

maildoc.SendTo= recipients 

'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 

With rtiBody 

.AppendText "This TR was submitted by: " + Session.CommonUserName 
.AddNewLine 2 
End With 'rtibody 

Flag=workspace.DialogBoxf(MailNot)", True, True, False, False, False, False, "IP 



lfFlag=True Then 

Set item= maildoc.GetFirstltem("EditTxl") 

Forall Text In item.values 

Call rtibody .AppendText (text) 
Call rtibody .AddNewLine (1) 

End Forall 

maildoc.EditTxt=" M 

maildoc.Form="Memo" 

Call maildoc.Send( False ) 
End If 'dialogbox for message to default addresses. 



Agenda Trouble 
ReporT.Maildoc) 



End Sub 



HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 



j 



Yes 

Yes 

Yes 

No 

No 



Open Navigator: Admin Nav 



HotspotRectangle9 
[None Assigned] 



HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 



Yes 

Yes 

Yes 

No 

No 



Open Navigator: ReportNav 



HotspotRectanglel 0 
[None Assigned] 



HotspotRectangle 

1 Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 



Yes 

Yes 

Yes 

No 

No 



HotspotRectanglel 1 
[None Assigned] 



434 



Simple Action: 



Open Navigator: 
NewTaskClosed 



Name: 

Last Modification: 
Comment: 
Snap to Grid: 
Grid Size: 
Show Grid: 

Auto adjust panes at runtime: 
Web browser compatible: 
Initial View or Folder: 
Background Color 
Subcomponents: 
GraphicButton 

Name: 

Caption: 

Visible: 

Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 



Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 

Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
, Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 



NewTaskbyRA 

03/29/1999 03:07:10 PM 

[Not Assigned] 

Yes 

5 

No 

Yes 

Yes 

Tasks\By RespAtty 
RGB Value: 0 0 0 



GraphicButton2 

[None Assigned] 

Yes 

Yes 

No 

No 

No 

TexM . 

Client View (by Name)Client 

View (by Number)Responsible 

Attorney ViewsTask ViewsView 

CaleridarReports 

Yes 

Yes 

Yes 

No 

No 

Text11 

Exit DatabaseComment/Trouble 

ReportDatabase Administration 

Yes 

Yes 

Yes 

No 

No 

Text12 

By Client 

Yes 

Yes 

Yes 

No 

No 

Text13 

By Responsible Attorney 



435 



Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
HotspotRectangle 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 



Y6s 

Yes 

Yes 

No 

No 

Text16 

By Closed Events & Tasks 

Yes 

Yes 

Yes 

No 

No 

HotspotRectangle2 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator 
NewClientNameByName 

HotspotRectangle3 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator 
NewClient#ByName 

HotspotRectangle4 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator 
NewRAByMatter 

HotspotRectangleS 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator 
NewTaskbyClient 



Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

Hotspot Rectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
w Formula: 



HotspotRectangle6 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator 
NewCalByEvents 

HotspotRectangle7 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

@Command([FifeClose 
Window]); 



HotspotRectangle8 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 



HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
LotusScript Code: 
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Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

Dim doc As NotesDocument 

Dim maildoc As NotesDocument 

Set maildoc = New NotesDocument(db) 

maildoc.Form="MailNot" 

maildoc.Subject="IP Agenda Trouble Report" 

Dim recipients( 1 To 3 ) As String 

recipients( 1 ) = "thomson@qsmi.com" 

recipients( 2 ) = "hoagland@qsmi.com" 

recipients( 3 ) = "Patricia L. Mansuy" 

maildoc.SendTo= recipients 

'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body 1 ) 

With rtiBody - 

.AppendText 'This TR was submitted by: " + Sessian.CommonUserName 
.AddNewLine 2 

End With 'rtibody 

Flag=workspace.DialogBoxr(MailNot)", True, True, False, False, False, False, "IP 
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If Flag=True Then 

Set item= maildoc.GetFirstltemC'EditTxt") 
Forall Text In item.values 

Call rtibody.AppendText (text) 
Call rtibody.AddNewLine (1) 
End Forall 
maildoc.EditTxt= ,m 
maildoc.Form-'Memo" 
Call maildoc.Send( False ) 
End If 'dialogbox for message to default addresses. 
End Sub 
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LotusScript Code: 

Sub Click(Source As Navigator) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

Dim doc As NotesDocument 

Dim maiidoc As NotesDocument 

Set maiidoc = New NotesDocument(db) 

maildocPorm-'MailNot" 

maildoc.Subject="IP Agenda Trouble Report" 

Dim recipients( 1 To 3 ) As String 

recipients( 1 ) = "thomson@qsmi.com" 

recipients( 2 ) = "hoagland@qsmi.com" 

recipients( 3 ) = "Patricia L. Mansuy" 

maildoc.SendTo^ recipients 

'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maiidoc, "Body") 

With rtiBody 

.AppendText This TR was submitted by: " + Session.CommonUserName 
.AddNewLine 2 
End With 'rtibody 

Flag=workspace.DialogBox("(MailNot)", True, True, False, False, False, False, n IP 

Agenda Trouble 
Report", Maiidoc) 

lfFlag=True Then 

Set item= mai!doc.GetFirstltem("EditTxt") 
Forall Text In item.values 

Call rtibody.AppendText (text) 
Call rtibody AddNewLine (1) 
End Forall 
maildoc.EditTxt="" 
maildoc.Form="Memo" 
Call maildoc.Send( False ) 
End If 'dialogbox for message to default addresses. 
End Sub 
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Sub Click(Source As Navigator) 

This Routine produces a report of all matters for a specific client 
Dim session As New NotesSession 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim db As NotesDatabase 
Set db= session.CurrentDatabase 
Dim doc As NotesDocument 
Dim dc As NotesDocumentCollection 
Dim view As NotesView 
Dim iteml As Notesltem 
Dimitem2As Notesltem 
Dim ReportDoc As New NotesDocument(db) 
Dim DBox As New NotesDocument(db) 
' Dim rtStyle As NotesRichTextStyle 
'Set rtStyle=session.CreateRichTextStyle 
'rtStyle.NotesFont=FONT_ROMAN 
*rtStyle.FontSize=10 

Flag=workspace.DialogBox("(ReportCreator)", True, True, False, False, False, False, 

m \DBox) 

lfFlag=True Then 
'new report code 

Set iteml =DBox.GetFirstltem("client") 

Set item2=DBox.GetFir3tltem("ReportDate") 

client$=item1 .values(O) 

RDate$=item2.values(0) 

Set CR = CreateObjertfCrystaLCrystalReport") 

CR.ReportFileName = "c:\program files\csrsreports\clientMatter.rpr 

RDate$="As Of: "+Rdate$ 

cr.ParameterFields(0) = "AsOfDate;"+rdate$+";TRUE n 
cr.Connect = "dsn=IPAgenda" 

cr.windowtitle = "Collier, Shannon, Rill & Scott Client/Matter Report" 
cr.windowallowdrilldown = True 
cr.WindowState= 2 
cr.windowshowprintsetupbtn = True 
cr.windowshowsearchbtn = True 

cr.SelectionFormula = w {AIIDocsForReporting.Client_Name) = ,B +client$ + m " 
cr.action = 1 
%REM 

* old report code follows 

Set iteml =DBox.GetFirstltemCclient n ) 

Set item2=DBox.GetFirstltem( n ReportDate") 

client$=item1.values(0) 

RDate$=item2.values(0) 

Set ReportDoc = db.CreateDocument 

ReportDoc.client=client$ 

ReportDoc.ReportDate=RDate$ 

ReportDoc.Form = "(ClientMatterReport)" 

ReportDoc.FormName="Client Matter Report" 

ReportDoc.RptType="Active Matters" 

ReportDoc.RptName="Client Matter Report" 

Set view = db.GetView( "(ReportMatter)" ) 

Set dc = view.GetAIIDocumentsByKey(client$, True) 
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Set doc=dc.GetFirstDocument 
Gosub GetData 

ReportDoc.BodyName=MatterName$ 
ReportDoc.BMat=MatterNum$ 
ReportDoc.BDate=MatterDate$ 
ReportDoc. Body Des=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoaBodyNamejl =MatterName$ 
ReportDoc.B Mat_1 =MatterNum$ 
ReportDoc.BDatejl =MatterDate$ 
ReportDoc.BodyDes_1 =MatterOes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_2=MatterName$ 
ReportDoc.BMat_2=MatterNum$ 
ReportDoc.BDate_2=MatterDate$ 
ReportDoc.BodyDes_2=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoaBodyName_3=MatterName$ 
ReportDoc.BMat_3=MatterNum$ 
ReportDoc.BDate_3=MatterDate$ 
ReportDoc.BodyDes_3=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

Reportboc.BodyName_4=MatterName$ 
ReportDoc.BMat_4=MatterNum$ 
ReportDoc.BDate_4=MatterDate$ 
ReportDoc.BodyDes_4=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_5=MatterName$ 
ReportDoc.BMat_5=MatterNum$ 
ReportDoc.BDate_5=MatterDate$ 
ReportDoc.BodyDes_5=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_6=MatterName$ 
ReportDoc.BMat_6=MatterNum$ 
ReportDoc.BDate_6=MatterDate$ 
ReportDoc.BodyDes_6=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_7=MatterName$ 
ReportDoc.BMat_7=MatterNum$ 
ReportDocBDate_7=MatterDate$ 
ReportDoc.BodyDes_7=MatterDes$ 
Set doc = dc.GetNexTDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_8=MatterName$ 
ReportDoc.BMat_8=MatterNum$ 
ReportDoc.BDate_8=MatterDate$ 
ReportDoc.BodyDes_8=MatterDes$ 



Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_9=MatterName$ 
ReportDoc.BMat_9=MatterNum$ 
ReportDoc.BDate - 9=MatterDate$ 
ReportDoc.BodyDes_9=MatterDes$ 
Set doc = dc.GetNextDocument(doc). 
Gosub GetData 

ReportDoc.BodyName_1 0=MatterName$ 
ReportDoc.BMaM 0=MatterNum$ 
ReportDoc.BDatejl 0=MatterDate$ 
ReportDoc.BodyDes_1 0=MatterOes$ 
Set doc « dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyNamejl 1=MatterName$ 
ReportDoc.BMaM 1=MatterNum$ 
ReportDoc.BDate_l 1 =MatterDate$ 
ReportDoc.BodyDes_1 1=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyNamejl 2=MatterName$ 
ReportDoc.BMaM 2=MatterNum$ 
ReportDoc.BDate_1 2=Matterbate$ 
ReportDoc.Body Des_1 2=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosiib GetData 

ReportDoc.BodyName_1 3=MatterName$ 
ReportDoc.BMaM 3=MatterNum$ 
ReportDoc.BDate_1 3=MatterDate$ 
ReportDoc.BodyDes_1 3=MatterDes$ 
Set doc - dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyNamejl 4=MatterName$ 
ReportDoc.BMaM 4=Mattert\lum$ 
ReportDoc.BDate_1 4=MatterOate$ 
ReportDoaBodyDesjl 4=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyNamejl 5=MatterName$ 
ReportDoc.BMaM 5=MatterlMum$ 
ReportDoc.BDate Jl 5=MatterDate$ 
ReportDoc.BodyDes J! 5=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyNamejl 6=MatterName$ 
ReportDoc.BMaM 6=MatterNum$ 
ReportDoc.BDate_1 6=MatterDate$ 
ReportDoc.BodyDes jl 6=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyNamejl 7=MatterName$ 
ReportDoc.BMaM 7=MatterNum$ 
ReportDoc.BDatejl 7=MatterDate$ 
ReportDoc.BodyDes_1 7=MatterDes$ 



Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyNameJ 8=MatterName$ 
ReportDoc.BMat J 8=MatterNum$ 
ReportDoc.BDatejl 8=MatterDate$ 
ReportDoc.BodyDes_1 8=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyNamejl 9=MatterName$ 
ReportDoc.BMaM 9=MatterNum$ 
ReportDoc.BodyDate_1 9=MatterDate$ 
ReportDoc.BodyDesjl 9=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_20=MatterName$ 
ReportDoc.BMat_20=MatterNum$ 
ReportDoc.BDate_20=MatterDate$ 
ReportDoc.BodyDesJ20=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_21 =MatterName$ 
ReportDoc.BMat_21 =MatterNum$ 
ReportDoc.BDate_21 =MatterDate$ 
ReportDoc.BodyDes_21 =MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyNameJ21=MatterName$ 
ReportDoc.BMat_21 =MatterNum$ 
ReportDoc.BDate_21 =MatterDate$ 
ReportDoc.BodyDes_21 =MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_22=MatterName$ 
ReportDoc.BMat_22=MatterNum$ 
ReportDoc.BDate_22=MatterDate$ 
ReportDoc.BodyDes_22=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_23=MatterName$ 
ReportDoc.BMat_23=MatterNum$ 
ReportDoc.BDate_23=MatterDate$ 
ReportDpc.BodyDes_23=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_24=MatterName$ 
ReportDoc.BMat_24=MatterNum$ 
ReportDpc.BDate_24=MatterDate$ 
ReportDoc.BodyDes_24=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName^25=MatterName$ 
ReportDoc.BMat_25=MatterNum$ 
ReportDoc.BDate_25=MatterDate$ 
ReportDoc.BodyDes_25=MatterDes$ 



Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_26=MatterName$ 
ReportDoc.BMat_26=MatterNum$ 
ReportDoc.BDate_26=MatterDate$ 
ReportDoc.BodyDes_26=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_27=Matter1siame$ 
ReportDoc.BMat_27=MatterNum$ 
ReportDoc.BDate_27=MatterOate$ 
ReportDoc.BodyDes_27=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_28=MatterName$ 
ReportDoc.BMat_28=MatterNum$ 
ReportDoc.BDate_28=MatterDate$ 
ReportDoc.BodyDes_28=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_29=MatterName$ 
ReportDoc.BMat_29=MatterNum$ 
ReportDoc.BDate_29=MatterDate$ 
ReportDoc.BodyDes_29=MatteiDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_30=MatterName$ 
ReportDoc.BMat_30=MatterNum$ 
ReportDoc.BDate^30=MatterDate$ 
ReportDoc.BodyDes_30=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_31 =MatterName$ 
ReportDoc.BMat_31 =MatterNum$ 
ReportDoc.BDate_31 =MatterDate$ 
ReportDoc.BodyDes_31 =MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_32=MatterName$ 
ReportDoc.BMat_32=MatterNum$ 
ReportDoc.BDate_32=MatterDate$ 
ReportDoc.BodyDes_32=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_33=MatterName$ 
ReportDoc.BMat_33=MatterNum$ 
ReportDoc.BDate_33=MatterDate$ 
ReportDoc.BodyDes_33=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_34=MatterName$ 
ReportDoc.BMat_34=MatterNum$ 
ReportDoc.BDate_34=MatterDate$ 
ReportDoc.BodyDes_34=MatterDes$ 



Set doc = dc.GetNextDocument(doc) 
GosubGetData 

ReportDocBodyName_35=MatterName$ 
ReportDocBMat_35=MatterNum$ 
ReportDoc.BDate__35=MatterOate$ 
ReportDoc.BodyDes_35=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 
GetOata: 

If Not (doc Is Nothing) Then 

Set item3=doc.GetFirstltemC , Matter_Name") 

Set ftenv^oc.GetFirstltemC , Matter_No M ) 

Set item5=doc.GetFirstltemC , cre_date M ) 

Set itemS^ocGetFirstltemrdescription") 

MatterName$=item3.values(0) 

MatterNum$=rtem4.values(0) 

MatterDate$=Lett$(item5.values(0),8) 

MatterDes$=item6.values(0) 

Return 
Else 

Goto bailout 
End If 
bailout: 

Call ReportDoasave( True, False) 

Set uidoc=workspace.EditDocument(False. ReportDoc, False) 
%END REM 

End If 
End Sub 
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LotusScript Code: 




Use "SortingLibrary" 




Dim CR As Variant 





Sub Click(Source As Navigator) 

This Routine produces a report of all matters for a specific client 
Dim session As New NotesSession 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim db As NotesDatabase 
Set db= session.CurrentDatabase 
Dim doc As NotesDocument 
Dim dc As NotesDocumentCollection 
Dim view As NotesView 
Dim iteml As Notesltem 



Dimitem2As Notesltem 

Dim ReportDoc As New NotesDocument(db) 

Dim DBox As New NotesDocument(db) 

Flag=workspace.DialogBoxC(ReportCreator) w t True, True, False, False, False, False, 

n \DBox) 

lfFlag=True Then 
( new report code 

Set jtem1=DBox.GetFirstltem("client") 

Set item2=DBox.GetFi^stltem( M ReportDate' , ) 

client$=item1 .values(O) 

RDate$=item2.values(0) 

Set CR = CreateObjectfCrystal.CrystalReporf) 

CR.ReportFileName = "c:\program files\csrsreports\StatusTable.rpt" 

RDate$= M As Of: W +Rdate$ 

cr.ParameterFields(O) = "AsOfDate; M +rdate$+";TRUE M 
cr.ParameterFields(l) = , Title; ,, +client$+ ,, ;TRUE ,, 
cr.Connect = "dsn=IPAgenda" 

cr.windowtitle = "Collier, Shannon, Rill & Scott Status Table" 
cr.windowallowdrilldown = True 
cr.WindowState= 2 
cr.windowshowprintsetupbtn = True 
cr.windowshowsearchbtn = True 

cr.SelectionFormula = "{AILDocs_ForReportingStatusTable.Client_Name} = 

+client$ + mn 

enaction = 1 
%REM 
%END REM 

End If 
End Sub 

Button 

Name:. Button11 

Caption: Resp. Attorney Report 

Visible: Yes 

Selectable: Yes 

Lock size and position: Yes 

Highlight when touched: No 

Highlight when clicked: Yes 

LotusScript Code: 

Use "SortingLibrary" 

Dim CR As Variant 

Sub Click(Source As Navigator) 

This Routine produces a report of all matters for a specific client 
Dim session As New NotesSession 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim db As NotesDatabase 
Set db= session.CurrentDatabase 
Dim doc As NotesDocument 
Dim dc As NotesDocumentCollection 
Dim view As NotesView 
Dim iteml As Notesltem 
Dimitem2As Notesltem 
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Dim ReportDoc As New NotesDocument(db) 
Dim DBox As New NotesDocument(db) 

Flag=workspace.DialogBoxC(ReportCreatorRespAtty) n , True, True, False, False, 



lfFlag=True Then 
'new report code 

Set iteml =DBox.GetFirstltem("client") 

Setrtem2=DBox.GetFirstltem( n ReportDate n ) 

client$=item1 .values(0) 

RDate$=item2.values(0) 

Set CR = CreateObjectfCrystaLCrystalReport") 

CR.ReportFileName = "c:\program files\csrsreports\RespAtty.rpt w 

RDate$="As Of: rt +Rdate$ 

cr.ParameterFields(0) = "AsOfDate^+rdateS+^TRUE" 
cr.Connect = "dsn=IPAgenda a 

cr.windowtrtle = "Collier, Shannon, Rill & Scott Responsible Attorney Report" 
cr.windowallowdrilldown = True 
cr.WindowState= 2 
cr.windowshowprintsetupbtn = True 
crwindowshowsearchbtn = True 

cr.SelectionFonmula = n {AIIJDocs_ForReportingRespAtty._7} = +client$ + " 
enaction = 1 
End If 



False, False, m, ,DBox) 



End Sub 
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Simple Action: 



Yes 

Yes 

Yes 

No 

No 



Open Navigator 
NewClient#ByName 



HotspotRectangle3 
[None Assigned] 



HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 



Yes 

Yes 

Yes 

No 

No 



Open Navigator 
NewRAByMatter 



HotspotRectangle4 
[None Assigned] 
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HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Formula: 



HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 

Highlight when touched: 

Highlight when clicked: 

Highlight when touched: 

Highlight when clicked: 

LotusScript Code: 

Sub C!ick(Source As Navigator) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim maildoc As NotesDocument 
Set maildoc = New NotesDocument(db) 
maildoc.Form= n MailNot" 
maildoc.Subject="IP Agenda Trouble Report" 
Dim recipients( 1 To 3 ) As String 



HotspotRectangleS 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator: 
NewTaskbyClient 

HotspotRectangle6 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator 
NewCalByEvents 

HotspotRectangle7 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

@Command([FileClose 
Window]); 

HotspotRectangleS 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

No 

No 
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recipients( 1 ) = "thomson@qsmi.com" 
recipients( 2 ) = "hoagland@qsmi.com" 
recipients* 3 ) = "Patricia L. Mansuy" 
maildoc.SendTo= recipients 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
WithrtiBody 

.AppendText "This TR was submitted by: " + Session.CommonUserName 
.AddNewLine 2 
End With 'rtibody 

Flag=workspace.DialogBox("(MailNot)" t True, True, False, False, False, False, "IP 



lfFlag=True Then 

Set item= maildoc.GetFirstltemf 'EditTxt") 
Forall Text In item.values 

Call rtibody AppendText (text) 
Call rtibody.AddNewLine (1) 
End Forall 
maildoc.EditTxt=="" 
maildoc.Form="Memo" 
Call maildoc.Send( False ) 
End Ifdialogbox for message to default addresses. 



Agenda Trouble 
Report",Maildoc) 



End Sub 



HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 



Open Navigator: Admin Nav 



Yes 
Yes 
Yes 
No 
No 



HotspotRectangleQ 
[None Assigned] 



Agent Information 
Name: 



Change Project Type 
(Developers ONLY) 

03/22/1999 09:16:59 AM 

[Not Assigned] 

Run via menu command 

Update existing document when 

run 

Run on selected documents 
subF := 

@Prompt([OKCANCELLIST]; 
"Project"; "Select a Value for 
this Field."; "C&A"; "ProsPatent" 
: "ProsCopyright" : "ProsTM" : 
"Litigation" : "Other") ;subT := 
@lf(subF = "C&A"; "Counseling 
and Advice"; @lf(subF = 
"ProsPatent"; "Prosecution: 



Last Modification: 
Comment: 
Run Options: 
Operation: 



Acts On: 
Formula: 
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Name: 



Last Modification: 

Comment: 

Shared Agent: 

Type: 

State: 

Trigger 

Acts On: 



Patent"; @lf(subF = 
n ProsCopyright n ; "Prosecution: 
Copyright"; @lf(subF = 
"ProsTrademark"; "Prosecution: 
Trademark"; @lf(subF = 
"Litigation"; "Litigation"; 
@lf(subF = "Other; "Other 11 ; 
""))))));FIELD subform := 
subform;FIELD subtype := 
subtype;FIELD project := 
project;@SetField("subform"; 
subF);@SetField("subtype"; 
subT);@SetFieldrproject M ; 
subT);SELECT ©All; 

Delete Orphaned 
Response Documents 

03/29/1999 01:18:18 PM 

[Not Assigned] 

Yes 

LotusScript 
Enabled 

Manually From Actions Menu 
Run once (©Commands may 
be used) 



LotusScript Code: 

Option Public 
Sub Initialize 

Dim session As New NotesSession 

Dim database As New NotesDatabase ("".session.CurrentDatabase.FileName) 

Dim doc As NotesDocument 

Dim collection As NotesDocumentCollection 

Dim dt As Variant 

Dim counter As Integer 

Set collection = database.AIIDocuments 

Forx = 1 To collection. count 

Set doc = collection. GetNthDocument(x) 
If doc.lsresponse = True Then 

Set parentdoc = database.GetDocumentByUNID (doc.ParentDocumentUNID) 
On Error Resume Next 
If (PareritDoc.Responses Is Nothing) Then 
Call doc.remove (True) 
Counter = Counter + 1 
End If 
End If 
Nextx 

Messagebox (Str(Counter) & " Documents were deleted") 
End Sub 



Name: 



Last Modification: 
Comment: 



Fix-Up Data (Developers 
ONLY) 

03/18/1999 02:21:31 PM 
(Not Assigned) 
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Shared Agent: Yes 

Type: LotusScript 

State: Enabled 

Trigger: Manually From Actions Menu 

Acts On: Selected documents 



LotusScript Code: 

Option Public 

Dim session As NotesSession 

Dim db As NotesDatabase 

Dim view As NotesView 

Dim doc As NotesDocument 

Dim myLog As NotesLog 

Dim collection As NotesDocumentCollection 

Dim NewNamesO As String 

Dim hwnd As Long 

Dim i As Long 

Dim j As Long 

Const NPB_STATUSBAR% = 32 

Declare Sub NEMProgressEnd Lib "nnotesws.dll" ( Byval hwnd As Long ) 
Declare Function NEMProgressBegin Lib "nnotesws.dir ( Byval wFlags As Integer) As Long 
Declare Sub NEMProgressSetBarPos Lib "nnotesws.dll" ( Byval hwnd As Long, Byval dwPos 

As Long) 

Declare Sub NEMProgressSetBarRange Lib "nnotesws.dll" ( Byval hwnd As Long, Byval 

dwMaxAsLong) 

Declare Sub NEMProgressSetText Lib "nnotesws.dir ( Byval hwnd As Long, Byval pcszLinei 

As String, Byval pcszLine2 As 
String ) 

Sub Initialize 

Set session = New NotesSession 
Set db = session.CurrentDatabase 

'Get the documents to process that were selected in the view 
Set collection = db.UnprocessedDocuments 
Set doc = collection.GetFirstDocument 
Set myLog=New NotesLogfAgent Run Log") 
hwnd= NEMProgressBegin(NPB_STATUSBAR) 
i=0 

NEMProgressSetBarRange hwnd, collection.count 

'enter the agent proper 

main 

NEMProgressEnd hwnd 
End Sub 
Sub fixAttomey 

This code fixes the responsible attorney field to be consistant as: First Ml. Last 

Atty$=doc.resp_atty(0) 

Set RAItem=doc.GetFirstltem("resp_atty") 

lfAtty$<>""Then 

Redim NewNames(O) 

NewNames(0) ="" 

Forall x In RAItem.values 
oldName$ =Trim$(x) 

•How long is the name 
SLength&=Len(oldName$) 

Test for the pesky slash and get rid of it 
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If oldName$ Like "*/*" Then 
'Get the position of the / 
slashchr$ = T 

positionOfChar& = lnstr(1, oldName$, slashchr$) 
'Get the last name 

LastName$=Trim$(Left(oldName$, positionOfChar&-1)) 
'get the first name 

FirstName$= Trim(Mid(oldName$, positionOfChar&+1 ,SLength& )) 
'test the first name for a middle initial 
If FirstName$ Like "* *" Then 
'test for a period after the middle initial 
If FirstNameS Like "*.*" Then 
( lf it already has a period, put it together 

NewName$=FirstName$ & & LastName$ 
Else 

'if it don't then put a period after the middle initial and put it together 

NewName$=FirstName$ & " & LastNameS 
End If 
Else 

'If no middle initial, put it together 

NewName$= FirstNameS & & LastNameS 

Goto loopearly 
End If 

Goto loopearly 
End If 

'Now lets test for a name without a period after the middle initial 
lfoldName$ Like"*.*" Then 

Exit Sub 
Else 

•get the first name 
spacechr$=" " 

positionOfChar&=lnstr(1 f oldName$ t spacechr$) 

FirstName$=Trim$(Lett(oldName$, positionOfChar&-1)) 
'Get the last name 

LastName$=Trim$(Mid(oldName$, positionOfChar&+1 ,SLength&)) 
'check the last name for a space indicating a middle initial 

If LastName$ Like"* *" Then 

'get the middle initial 

Middle$=Trim$(Lett(LastName$, 1)) 

'strip the middle initial from last name 
lastLength&=Len(LastName$) 
positionOfChar&=lnstr(2 ,LastName$,spacechr$) 
LastName$=Trim(Mid(LastName$ l positionOfChar&+1,lastLength&)) 

'put it together 

newname$=FirstName$ & " " & Middle$ & ". " & LastName$ 
Else 

'If no middle initial just put it together 

newname$=FirstName$ & " " & LastName$ 
End If 
End If 
loopearly: 

If Not(NewNames(0)="") Then 

Redim Preserve NewNames(Ubound( NewNames)+1) 
End If 



NewNames(Ubound(NewNames))=newname$ 
End Forall 

Call RAItem.remove 

Set NewRAItem=New Notesltem(doc, "resp_atty", NewNames) 
NewRAItemJsSummary = True 
End If 
End Sub 
Sub Main 

'Set up error log 

logTo$=lnputbox$( n Who should I send the Error Log to?", "Recipient") 
Call myLog.OpenMailLog(logTo$, "Error Log for Fix-Up Agent") 
Trap errors 
On Error Goto trapErr 
lets fix some documents 
Do While Not doc Is Nothing 
i=i+1 

NEMProgressSetBarPos hwnd, i 
'Grab the doc ID for error identification 
doclD$=doc.UniversallD 
'Non-form specific fixup 
doc.PropClose="Closed" 
If doc.HasltemCPropClosejO Then 

Set PC1 Item^ocGetFirstltemfPropClose^") 

Call PC1ltem.Remove 
End If 

If doc.HasltemfRASiG") Then 

Set Sigltem=doc.GetFirstltemrRASIG") 

Call Sig Item. Remove 
End If . 

If doc.HasltemflPDSIG") Then 

Set Siglten^docGetRrstltemflPDSIG") 

Call Sigltem.Remove 
End If 

'Form specific fixup 
If doc.Form(0)="Event" Then 
doc.TEDateComplete= n " 
doc.TEArchive^no" 
doc.Retire By= n " 
docUnHideEV^no" 
doc.ClosingEV="no" 
doc.Status^Open" 
doc.DateComplete= ,m 
If doc.Hasltemf DateDue^ Then 
If doc.DateDue(0) o - Then 

doc.EventDate = doc.DateDue 
End If 

Setdateltem=doc.GetFirstltemC'DateDue") 
Call dateltem.Remove 
End If 
End If 

If doc.Form(0)=Task w Then 
doc.TEDateComplete^ . 
doc.TEArchive= n no B 
doc.RACIosed= M no" 



If doc.Hasltem("$Sig_Untitled_Section_1 ") Then 

Set Section Iteml ^doc.GetFirstltemO^Sig^Untitled^Section^l ") 

Sectionlteml JsSigned=False 

Sectionlteml .IsEncrypted=False 

Call Sectionlteml. remove 
End If 

If doc.HasltemC , $Sig_Untitled_Section2 !, ) Then 

SetSectionltem2=doc.GetFirstltemC , $Sig_Untitled_Section2") 
Sectionltem2JsSigned=False 
Sectionltem2.lsEncrypted=False 
Call Section ltem2.remove 
. End If 

Set RASigltem=doc.GetFirstltem( M RA_Sig") 

RASigltem.lsSigned=False 

SetlPDSigltem=doc.GetRrstltem^ , IPD_Sig ,, ) 

IPDSigltem.lsSigned=False 

doc.RA_Sig=" n 

docJPD_Sig= ,w 

doc.UnHideRA= n no w 

doc.UnHideDM="no w 

doc.DocDateComplete= ,m 

doc.DateComplete= ,w 

doc.Status="Open" 

If doc.HasltemC , DateDue w ) Then 

If doc.DateDue(O) o Then 
doc.TaskDate = docDateDue 

End If 

Set dateltem=doc.GetFiretltem("DateDue") 
Call dateltem.Remove 
End If 
End If 

•Now lets fix those pesky attorney names 
frxAttomey 

doc.ComputeWrthForm True, False 
doc.save True, True 

Set doc=collection.GetNextDocument(doc) 
Loop 

Call myLog.LogAction( "Agent completed, " & i & " documents were processed." ) 
Call myLog.Close 

Msgbox "All Selected Records Processed." 
Exit Sub 

'Handle errors and log them 
trapEm 

Call myLog.LogError (Err , Error$ & w in document: " & doclD$) 
Resume Next 
End Sub 

Name: Periodic Archive 

Last Modification: 04/20/1999 02:06:14 PM 

Comment: [Not Assigned] 

Shared Agent: Yes 
Type: LotusScript 
State: Enabled 



Trigger 
Interval: 

Acts On: 
LotusScript Code: 

^INCLUDE "Iserr.lss" 

,0 /olNCLUDE n lsxbeerr.lss w 

Const MAXARCHIVEITEMS = 50 

Dim session As NotesSession 

Dim dbSource As NotesDatabase 

Dim dbArchive As NotesDatabase 

Dim docSource As NotesDocument 

Dim docArchive As NotesDocument 

Dim docLog As NotesDocument 

Dim docProfile As NotesDocument 

Dim viewArchive As NotesView 

Dim dtNow As NotesDateTime 

Dim dtExpired As NotesDateTime 

Dim dtDocument As NotesDateTime 

Dim dtCompare As NotesDateTime 

Dim docsCollection As NotesDocumentCollection 

Dim rtitem As NotesRichTextltem 

Dim Hern As Notesltem 

Dim rtStyle As NotesRichTextStyle 

Dim nidArrayO As String 

Dim SourcePath As String 

Dim SourceServer As String 

Dim ArchiveServer As String 

Dim ArchivePath As String 

Dim ArchiveLog As String 

Dim IncludeDocUnks As String 

Dim ArchiveExpired As String 

•Dim Archivelnactive As String 

Dim ExpiredLife As Integer 

'Dim DocumentLife As Integer 

Dim nLogltems As Integer 

Dim numDocs As Integer 

Dim numDocsArchived As Integer 

Dim i As Integer 

Dim DoNotRun As Variant 

Dim DocCanBeArchived As Variant 

Dim ArcYesNo As Variant 

Sub Initialize 

'initialize some variables 

Set session = New NotesSession 

Set dbSource = session. CurrentDatabase 

Redim nidArray(5) 

nLogltems = 0 

nurnDocsArchived = 0 

•call the main entry point 

Main 
End Sub 
Sub Terminate 



Scheduled 

On Schedule More Than Once 
A Day 

All documents in database 
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End Sub 
Sub Main 

'Read the profile document to see what options are enabled and where databases are 

located 

GetProfileSettings 
If DoNotRun Then Exit Sub 
'setup the date/time structures' 

Set dtNow = New NotesDateTimeO 
Set dtExpired = New NotesDateTimeO 
Set dtDocument = New NotesDateTimeO 
Set dtCompare = New NotesDateTimeO 
dtNow.SetNow 
dtExpired.SetNow 
dtDocument.SetNow 
dtCompare.SetNow 

If ArchiveExpired = "Yes" Then dtExpired.AdjustDay(ExpiredLife * -1 ) 
'If Archivelnactive = "Yes" Then dtDocument.AdjustDay(DocumentLife * -1) 
'open the archive database 
On Error Resume Next 

Set dbArchive = New NotesDatabase(ArchiveServer,ArchivePath> 
If Err = 4060 Then Goto ErrNoDBAccess 
If Not (dbArchive.lsOpen) Then 

Messagebox "Unable to open archive database/'^ 6,"Error" 

Exit Sub 
End If 

'see if we are logging documents, if we are, then create the first one 
If ArchiveLog = 'Yes" Then CreateLogDocument 
'process the documents in the database 

this finds ail documents that needs to be archived, archives them, logs them (if 

necessary), and removes them 
from this database 

ProcessDocuments 

'mark the log documents in terms of x out of y 
If ArchiveLog = "Yes" Then MarkLogDocuments 
Exit Sub 
ErrNoDBAccess: 

Messagebox "You do not have access to the archive database. Please contact the 

database manager to have your 
name added to the Access 
Control List.", 0, "Database 
Access Error" 

Exit Sub 
End Sub 

Sub GetProfileSettings 

'reads the profile document 

Set view = dbSource.GetView("Archiving ,, ) 

key = "Archive Profile" 

Set docProfile = view.GetDocumentByKey(key,False) 
If docProfile Is Nothing Then 

'there is no profile document so exit 

DoNotRun = True 
Elseif docProfile.ArchivePath(0) = "" Then 

there is no archive database 

Msgbox "You need to specify a location for the archive database.", 16,"Error^ 
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DoNotRun = True 
Else 

DoNotRun = False 

ArchiveExpired = docProfile.ArchiveExpired(O) 
'Archivelnactive = docProfile.Archivelnactive(0) 
'DocumentLife = docProfile.DocumentLife(Q) 
ExpiredLife = docProfile.ExpiredLife(0) 
ArchiveServer = docProfile.ArchiveServer(0) 
ArchivePath = docProfile.ArchivePath(0) 
ArchiveLog = docProfile.ArchiveLog(0) 
IncludeDocLinks = docProfile.lncludeDocLinks(O) 
End If 
End Sub 

Sub CreateLogDocument 

'creates a new log document, incrementing the counter 

Set docLog = New NotesDocument(dbSource) 

Set rtitem = New NotesRichTextltem(docLog, "Body") 

Set rtStyle = session.CreateRichTextStyle 

docLog.Form = "Archive Log" 

dtNow.SetNow 

docLog.ArchiveDate = dtNow.LSLocalTime 
docLog.ProtectFromArchive = 1 
docLog.ExcludeFromView = "D" 
docLog.From = "Archiving" 
docLog.Categories = "(Archive)" 
docLog.ReplaceltemValue "_Viewlcon", 22 
nLogltems = nLogltems + 1 
'see if we need to redim the array 

If nLogltems Mod 6 = 0 Then Redim Preserve nidArray(nLogltems + 4) 
End Sub 

Sub ProcessDocuments 

'get a handle to all of the documents in the database 

Set sourceview = dbSource.GetViewfArchiveDocs") 

Set docsCollection.= sourceview.GetAIIDocumentsByKeyCVes", True) 

If docsCollection.Count =0 Then 

ArchiveLog="No" 
End If 

numDocs = docsCollection.Count 
For i =1 To numDocs 

Set docSource = dbcsCollection.GetNthDocument(0 
'see if this document can be archived 
EvaluateDocument 
If DocCanBeArchived Then 
'archive this document 
ArchiveDocument 

If ArchiveLog = 'Yes" Then AddDocumentToLog 
docSource. Re move True 
End If 

'see if we have hit the maximum number of entries in a log document; if so close the 

existing one and create a new 
one 

If (numDocsArchived Mod MAXARCHIVEITEMS = 0) And (numDocsArchived > 0) 

Then 

If ArchiveLog = "Yes" Then 
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CloseLogDocument 
CreateLogDocument 
End If 
End If 
Next 

\ve are done processing all of the documents, close the last log document (if necessary) 
If ArchiveLog = "Yes" Then CloseLogDocument 
End Sub 

Sub EvaluateDocument 

•checks to see if a document should be archived or not 
DocCanBeArchived = False 
•see if this document is protected from archiving 
If docSource.HasltemfProtectFromArchive") Then 
If docSource.ProtectFromArchive(0) = "1" Then 

Exit Sub 
End If 
End If 

•see if we should archive documents that expire 
If ArchiveExpired = "Yes" Then 

If docSource.Hasltem( n TEDateComplete n ) Then . 

Set item = docSource.GetFirstltemCTEDateComplete") 
Set dtCompare = item.DateTimeValue 
If dtCompare Is Nothing Then 

Set dtCompare = New NotesDateTimeO 
dtCompare.SetNow 
Else 

If dtExpired .TimeDifference(dtCompare). >= 0 Then 
DocCanBeArchived = True 

Exit Sub * we exit here so that we dont archive this document again 
Else 

'If there are no documents to archive, we dont want a log 
ArchiveLog="No" 
End If 
End If 
End If 
End If 

•see if we should archive documents that are inactive 
•If Archivelnactive = 'Yes- Then 

'dtCompare.LSLocarTime = docSource.LastAccessed 

If dtDocument.TimeDifference(dtCompare) >= 0 Then DocCanBeArchived = True 
•End If 
End Sub 

Sub ArchiveDocument 

•copies the source document into the archive database 
%REM 

$Archived and DateArchived might already be present, if this agent failed the last 
time it was; run. None of these fields should be on the archived copy, because we 
don't want the archive database to inadvertantly archive these documents (it can 
archive, but it needs to use its own criteria) 
%END REM 

If docSource.Hasltemf$Archived n ) Then docSource.RemoveltemfSArchived") 
If docSource.Hasltemf DateArchived") Then docSource.RemoveltemCDateArchived") 
If docSource.HasltemfExpireDate") Then docSource.RemoveltemCExpireDate") . 
FixReaderNames 
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docSburce.Save True, True 

Set docArchive = docSource.CopyToDatabase(dbArchive) 
docSource.DateArchived = dtNow.LSLocalTime 
Call docSourccAppendltemValuefSArchived", True) 
docSource.Save True, True 
numDocsArchived = numDocsArchived + 1 
End Sub 

Sub FixReaderNames 

'if the reader access fields are blank, remove them 
If docSource.HasltemCReaderS") Then 

If docSource.Readers(O) = ttM Then docSource.RemoveltemfReaders") 
' End If 

If docSource.Hasltem("DocumentReaders") Then 
If docSource.DocumentReaders(0) = "" Then 

docSource.RemoveltemfDocu 
mentReaders") 

End If 
End Sub 

Sub AddDocumentToLog 
'Set the style for the log 
rtStyle.FontSize = 8 
rtStyle.NotesFont = FONT_HELV 

'only called if a document was archived and logging was enabled 
If IncludeDocLinks = "Yes" Then 

the user wants a doclink to the new archived document 

Call rtitem.AppendStyle(rtStyle) 

Call rtitem.AppendDocLink(docArchive, "DocLink to Archived Document") 
Call rtitem.AddTab(1) 
End If 

Client$=docSource.Client_Name(0) 
\ If docSource.Form(0) = "Event" Then 
Project$=docSource.Project(0) 
Select Case Projects 
Case "Prosecution: Patent" 

EventName$=docSource.PatentEvent(0) 
Case "Prosecution: Trademark" 

Eventlslame$=docSource.TrademarkEvent(0) 
Case "Prosecution: Copyright" 

EventName$=docSource.CopyrightEvent(0) 
Case "Litigation" 

EventName$=docSource.LitigationEvent(0) 
Case "Counseling & Advice" 

EventName$=docSource.CounselEvent(0) 
Case "Other* 

EventName$=docSource.OtherEvent(0) 
End Select 

Call rtitem.AppendText(" " & "Event - " & Clients &" - " & EventName$ & " (Retired by 

■ & docSource.Retire_by(0) & M 
on " &_ 

Format(docSource.TEDateComplete(0), "Short Date") & ")") 
End ]f 

If docSource.Form(0) = "Task" Then 

Call rtitem.AppendTextC " & "Task - " & Clients &" - " & docSourceTask(0) & " 

(Closed by "& 
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docSource.RA_Sig(0) & " on " 
&_ 

Format(docSource.TEDateComplete(0), "Short Date 11 ) & ")") 
End If 

Call rtitem.AddNewLine(1) 
End Sub 

Sub CloseLogDocument 

'saves the log document, adds the note id to the array, 

docLog.Save True, True 

nidArray(nLogltems) = docLog.NotelD 
End Sub 

Sub MarkLogDocuments 

'finds all of the log documents just created and marks them in terms of x out of y 
For i = 1 To nLogltems 

Set docLog = dbSource.GetDocumentBylD(nidArray(i)) 
If Not (docLog Is Nothing) Then 

docLog.Subject = "Log Document " &Cstr(i) & " of ■ & Cstr(nLogltems) & " f & 

Format(docLog .Created , 
"General Date") & T 

docLog.LogCount = Cstr(i) 
docLog.LogTotal = Cstr(nLogltems) 

docLogj^rchiveTrailer = "Archive log ■ & Cstr(i) & "of " & Cstr(nLogltems) & " for 

documents on server" &_ 

ArchiveServer & " from " & dbSource.Title & " f & dbSource.FilePath & ") to " & 

dbArchive.Title &_ 

" f & ArchivePath & ") completed sucessfully on " & _ 

Format(dtNow.LSLocalTime, "Short Date") & " at " & _ 

FormaUdtNow.LSLocalTime, "Long Time") & _ 

". Completed or Retired documents are archived after M & ExpiredLife & " days." 

'All other documents are 
archived after "&_ 

'DocumentLife & " days of inactivity." 
docLog.Save True.True 
Call docLog.CopyToDatabase(dbArchive) 
End If 
Next 
End Sub 

Name: SetTaskDate or 

EventDate=DateDue 

Last Modification: 03/22/t 999 09:1 7:07 AM 

Comment: [Not Assigned] 

Shared Agent: Yes 
Type: LotusScript 
State: Enabled 
Trigger Manually From Actions Menu 

Acts On: Selected documents 

LotusScript Code: 
Option Public 
Sub Initialize 

Dim session As New NotesSession 

Dim db As NotesDatabase 

Dim collection As NotesDocumentCollection 
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Dim doc As NotesDocument 
Dim j As Integer 

Set db = session. CurrentDatabase 

Set collection = db.UnprocessedDocuments 

For j = 1 To collection.Count 

Set doc = collection.GetNthDocument( j ) 
If doc.form(0)="Event n Then 
If docDateDue(O) o " tt Then 
doc.EventDate = doc.DateDue 
Call doc.Save(True t False ) 
End If 
Else 

If doc.form(0)='Task" Then 
If doc.DateDue(O) <> Then 
doc.TaskDate = doc.DateDue 
Call doc.Save(T rue, False ) 
End If 
End If 
End If 
Next 
End Sub 



Exhibit F 



Notes Database 



y 1 . Task View: EHsplays Date Opened rather the Due Date; Correct to display Due date 
y 2. Task View (By Responsible Attorney): No toggles; Add 



3T) Closing a Task: This action is not at all apparent from the database. Modify so that it is 
obvious to the user. 

3T> Client View (By Name and Number); Matters: Opens up everything - at all levels. Add two 
additional display lists that show only Client and Matter 



5jP Responsible Attorney Views: There are Three "Not Assigned" Categories - "General Not 
Assigned", "General N. Assigned", and "NOT Assigned" - we need only one; delete the 
"General N. Assigned" and "NOT assigned" categories and force the database to use the 
c "General "Not AssIgSfcd^ 

6. Responsible Attorney (By Project) has only "General Not Assigned" and the additional "Not 
Categorized"; Rationalize these differences and eliminate the duplicate categories. What is 
the difference between Not Categorized and Not Assigned? 

7. Responsible Attorney (By Open Event): Same issue 

8. Responsible Attorney (By Open Task): Same issue; in addition this view lists several 
attorneys and individuals who are no longer employed by the firm. This information must 
be maintained accurately and correctly. 

9. Responsible Attorney (By Open task and Event): Same as No. 8. 

10. Task Views (By Client): Lists as the first client (06036)* This is a data entry error. The 
client is FED. Please ensure quality control over data entry. 

1 1 . Task Views (By Responsible Attorney): same issue of not assigned; rationalize 

1 2. View Calendar (By Event and Task): This view is listing Tasks by Entry Data; Events should 
de listed by Event Date (not entry date); Tasks should be listed by Due Date (not entry date) 

13. Reports (Client Matter): This is unnecessary if we implement the change identified in f 1; 
Not needed. Delete 

14. Reports (Status Report): Big problems!!! This report is not including the desired 
information. Is it even in the database. Shelly do not do additional key entry to get it there. 

Doc. 496742/Veision I-1/14AXM 1 :43 AM 





Find out what needs to be done to make it work. The client selection is cumbersome and the 
date issue is unduly limiting and confusing. We need to generate reports of the type we have 
discussed previously (FED and JACOBS status table. There appears to be a fundamental 
conceptual problem here. Do not spend any more time climbing this ladder, until you are 
sure it is leaning on the correct wall!!! 

15. Reports (Responsible Attorney): Same as ^ 14. 
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hoagland@qsmi.com on 11/08/99 10:06:46 AM 



To: pcoyne@colshan.com 

cc: Pati1cia_Mansuy@colshan.com 

Subject: 
Patrick, 

Preliminary answers to your questions follow, they are keyed to your 
quest ion/ comment number. 

1. Your are correct. This change will be made at no cost. 

2. Same as above. 

3. Not sure exactly what you want on this one. Need to talk to you about 
it. 

4. Do you mean you only want the Client and Matter displayed in these 
views? If so, should I add views for the Events, we already have views for 
Tasks? 

5. - 9. These are data entry problems. As I recall, Shelly needed a 
category of "General - Not Assigned", which we added to the drop downs. 

If there is no data for the Category Column in the view, Notes adds a "Not 
Categorized" entry. We could put field validation on the key fields to 
stop this. (<1 hr task) 

10. - 11. Again, this is a data entry problem. We could add an agent to 
batch change the attorney field (or any other field) . This should make it 
easier to maintain the data. ( 1 hr task) 

12. Change will be made at no cost. 

13. - 15. Reports were constructed on Shelly 1 s requirements. Let me know 
what you want, 

I will have my people make the no cost changes immediately. We need to get 
together with you and whoever, is going to be using the db and hammer out 
the others. Let me know when this can be scheduled. 

Mike 



Michael J Hoagland 
QSMI 

703-242-9140, ext 3001 
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Shelly P. Silver 1 1 Z22/99 03:26 PM 

To: Patrick Coyne/CSRS@CSRS 
cc: 

Subject: Update on few database items 

1 . I received an acknowledgement from Hoagiand/QSMI regarding receipt of my requested changes 
and also an itemized email you sent a few weeks ago. 

2. I requested changes to our Status Table (i.e., requested a report system exactly like our current 
PficAtreo table) 

and was contacted by their report person, Eric Doggett, who will be implementing our changes. 

3. I was contacted by another QSMI person, Wendy, who is helping me update our Routing Sheets 
(i.e., copy 1 to distribution and copy 2 to RA). 

4. Wendy indicated our task views, calendar views, action items have be updated to show "DATE 
DUE" and not the date I entered an event. I requested the calendar views to sort by Resp Atty (i.e., when 
PJC pulls up Jan. calendar you will see all of YOUR due dates and not have to sort through DRY, KIM, 
etc.) 

5. I generalized all the entries of NOT ASSIGNED, NOT CATEGORIZED, GENERAL N. ASSIGNED, 
etc., to General Not Assigned. 

6. Old client/matters you indicated to be deleted or assigned to RA have been done. 

7. Please clarify for me: if an atty leaves IP but had Events and Tasks entered under their name do 
you want that all changed to the current Resp Atty or have the current Resp Atty take responsibility for 
events/tasks currently routed them? Otherwise, I'm just going to have all Events.Tasks, Projects, Matters 
changed from Mary to Christen! 

Til updated you on other matters as they come along. 



This electronic message transmission contains information from the law firm of Collier, Shannon, Rill & 
Scott, PLLC and is intended only for the use of the individual or entity to which it is addressed and may 
contain information that is privileged, confidential and exempt from disclosure under applicable law. If the 
reader of this message is not the intended recipient, you are hereby notified that any dissemination or 
distribution of this communication to other than the intended recipient is strictly prohibited. If you have 
received this communication in error, please notify us immediately by collect telephone at (202) 
342-8463/8464 or electronic mail (Webmaster@colshan.com). Thank you. 
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Shelly D. Silver 12/10/99 03:26 PM 



To: 
cc: 



Patrick Coyne/CSRS@CSRS 



Subject: 

I wanted to update you on the requested changes/edits we discussed and submitted to QSMI. 



Anyway, QSMI had complied with most of our requests. I wanted to respond to you specifically as to what 
requests had been completed and as luck would have it some of the changes initiated by them are not 
there today!!! e^^^c^O There's a possibility that when QSMI 

sends a template with changes over to Pat to update its overriding other info, that was okay. Pat Mansuy 
is out today and I have left emails and phone messages @ QSMI. This seems to be a reoccuring problem 
. I will follow up with them on Monday and try to resolve what is going on. One of their representatives is 
supposed to come next week to meet with Pat and I. PLEASE SEE MY COMMENTS BELOW: 



Notes Database 

1 . Task View: Displays Date Opened rather the Due Date; Correct to display Due date 
THIS VIEW IS NOW DISPLAYING BY DUE DATE 

2. Task View (By Responsible Attorney): No toggles; Add 

SHOWING BY DUE DATE AS REQUESTED. NO TOGGLE ADDED 

3. Closing a Task: This action is not at all apparent from the database. Modify so that it is 
obvious to the user. 

THIS FUNCTION NOT COMPLETED. NO TOGGLE ADDED 

4. Client View (By Name and Number); Matters: Opens up everything — at all levels. Add 
two additional display lists that show only Client and Matter 

' THIS REQUEST COMPLETED AS OF LAST WEEK, HOWEVER, NOT THERE 
NOW 

5. Responsible Attorney Views: There are Three "Not Assigned" Categories - "General 
Not Assigned", "General N. Assigned", and "NOT Assigned" - we need only one; delete the " 
General N. Assigned" and 6C NOT assigned" categories and force the database to use the "General 



Not Assigned" 



THESE CATEGORIES HAVE BEEN CORRECTED TO PROPER RESP ATTY 
OR TO 

GENERAL NOT ASSIGNED AS REQUESTED 

6. Responsible Attorney (By Project) has only "General Not Assigned" and the additional " 
Not Categorized"; Rationalize these differences and eliminate the duplicate categories. What is 
the difference between Not Categorized and Not Assigned? 

GENERAL NOT ASSIGNED - IS USED BASICALLY FOR 00600 MATTERS 
(Patent TM 

Copy Gen) NOT CATEGORIZED OR NOT ASSIGNED - AUTOMATICALLY 
CAME UP 

WHEN NO RESP ATTY NAME WAS INSERTED WHEN CREATING NEW 
MATTER. 

HAS BEEN CORRECTED AS IN NO. 5 ABOVE. 

7. Responsible Attorney (By Open Event): Same issue 

RESP ATTY NAME HAS BEEN INSERTED WHERE OMITTED OR GENERAL 

NOT 

ASSIGNED FOR 00600 MATTERS 

8. Responsible Attorney (By Open Task): Same issue; in addition this view lists several 
attorneys and individuals who are no longer employed by the firm. This information must be 
maintained accurately and correctly. 

MARY E. MADIGAN HAS BEEN CHANGED TO CHRISTEN ENGLISH 
MICHELE BALLANTYNE CHANGED TO NEW RESP ATTY FOR MATTERS 
HOWARD SHIPLEY CHANGED TO NEW RESP ATTY FOR MATTERS 
DAN GLANZ REMOVED 

9. Responsible Attorney (By Open task and Event): Same as No. 8. 
SAME AS NO. 8 ABOVE 

10. Task Views (By Client): Lists as the first client (06036). This is a data entry error. The 
client is FED. Please ensure quality control over data entry. 

TECHNICAL ERROR. THIS ENTRY WAS DELETED AND RE-ENTERED. 

1 1 . Task Views (By Responsible Attorney): same issue of not assigned; rationalize 
NOT CATEGORIZED OR NOT ASSIGNED - AUTOMATICALLY CAME UP 



WHEN NO 

RESP ATTY NAME WAS INSERTED WHEN CREATING NEW MATTER. HAS 
BEEN CORRECTED AS IN NO. 5 ABOVE, 



12. View Calendar (By Event and Task): This view is listing Tasks by Entry Data; Events 
should de listed by Event Date (not entry date); Tasks should be listed by Due Date (not entry 
date) . 

THIS REQUEST HAS BEEN COMPLETED. 

13. Reports (Client Matter): This is unnecessary if we implement the change identified in K 1 ; 
Not needed. Delete 

NOT DELETED YET - REPORT OF NO USE 

14. Reports (Status Report): Big problems! ! ! This report is not including the desired 
information. Is it even in the database. Shelly do not do additional key entry to get it there. 
Find out what needs to be done to make it work. The client selection is cumbersome and the date 
issue is unduly limiting and confusing. We need to generate reports of the type we have 
discussed previously ftj£r>fcGv^O There appears to be a fundamental 
conceptual problem here. Do not spend any more time climbing this ladder, until you are sure it 
is leaning on the correct wall! ! ! 

QSMI STILL WORKING ON STATUS REPORT. QSMI's report person, Eric 
Doggett, has 

contacted me 12/3/99 and is still working on implementing info we request into report 
exactly like 

our current FED/Jacobs status table. 

15. Reports (Responsible Attorney): Same as f 14. 

I WOULD LIKE TO MAINTAIN THIS REPORT FOR PRINTING PURPOSES ONLY. IT SHOWS 
CLIENT/MATTER/PROJECT LEVEL BY ATTORNEY. NONE OF THE OTHER VIEWS HAVE THIS 
CAPABILITY WITHOUT A LOT OF SEARCHING AND SORTING AND MANUAL ADJUSTMENT. 

1 6. QSMI ACTIVATED A BUTTON TO ALLOW ME TO GLOBALLY CHANGE ONE RESP ATTY 
TO 

ANOTHER 



This electronic message transmission contains information from the law firm of Collier, Shannon, Rill & 
Scott, PLLC and is intended only for the use of the individual or entity to which it is addressed and may 
contain information that is privileged, confidential and exempt from disclosure under applicable law. If the 
reader of this message is not the intended recipient, you are hereby notified that any dissemination or 
distribution of this communication to other than the intended recipient is strictly prohibited. If you have 
received this communication in error, please notify us immediately by collect telephone at (202) 



342-8463/8464 or electronic mail (Webmaster@colshan.com). Thank you. 



Exhibit J 



Shelly P. Silver 02/14/2000 04:07 PM 

To: Patrick Coyne/CSRS@CSRS 

cc: 

Subject: UPDATE ON DATABASE 
Responses to edits you sent to QSMI: 



Notes Database 

1 . Task View: Displays Date Opened rather the Due Date; Correct to display Due date 
THIS VIEW IS NOW DISPLAYING BY DUE DATE 

2. Task View (By Responsible Attorney): No toggles; Add 

TASK VIEW SHOWING BY DUE DATE AS REQUESTED. TOGGLES HAVE 
BEEN ADDED. TASKS, HOWEVER, MUST BE ACTED ON AND CLOSED 
OUT BY RESPONSIBLE ATTORNEY HANDLING THAT TASK. 

3. Closing a Task: This action is not at all apparent from the database. Modify so that it is 
obvious to the user. 

THIS FUNCTION IS COMPLETE. RESPONSIBLE ATTORNEY MUST ENTER 
THE TASK (OR EDIT) FROM ANY VIEW AND SIMPLY SCROLL DOWN TO THE 
FORM MARKED TASK CLOSURE AND COMPLETE CLOSING CERTIFICATE. 

4. Client View (By Name and Number); Matters: Opens up everything -- at all levels. Add 
two additional display lists that show only Client and Matter 

THIS REQUEST COMPLETED ^fiNOEMBfi^' < 

5. Responsible Attorney Views: There are Three "Not Assigned" Categories -- "General 
Not Assigned", ^'General N. Assigned", and "NOT Assigned" - we need only one; delete the " 
General N. Assigned" and "NOT assigned" categories and force the database to use the "General 
Not Assigned" 

THESE CATEGORIES HAVE BEEN CORRECTED TO EITHER RESP ATTY 
NAME OR TO GENERAL NOT ASSIGNED AS REQUESTED. THERE WERE 
VARIOUS PULL DOWN SELECTIONS THAT DIDN'T NEED TO BE THERE. 

6. Responsible Attorney (By Project) has only "General Not Assigned" and the additional " 
Not Categorized"; Rationalize these differences and eliminate the duplicate categories. What is 
the difference between Not Categorized and Not Assigned? 




GENERAL NOT ASSIGNED - IS USED BASICALLY FOR 00600 MATTERS 
(Patent TM Copy Gen). 

NOT CATEGORIZED OR NOT ASSIGNED - AUTOMATICALLY CAME UP 
WHEN NO RESP ATTY NAME WAS INSERTED WHEN CREATING NEW 
MATTER. HAS BEEN CORRECTED AS IN NO. 5 ABOVE. 

7. Responsible Attorney (By Open Event): Same issue 

RESP ATTY NAME HAS BEEN INSERTED WHERE OMITTED OR GENERAL 
NOT ASSIGNED FOR 00600 MATTERS 

8. Responsible Attorney (By Open Task): Same issue; in addition this view lists several 
attorneys and individuals who are no longer employed by the firm. This information must be 
maintained accurately and correctly. 

MARY E. MADIGAN HAS BEEN CHANGED TO CHRISTEN ENGLISH 
MICHELE BALLANTYNE CHANGED TO NEW RESP ATTY FOR HER 
MATTERS HOWARD SHIPLEY CHANGED TO NEW RESP ATTY FOR 
HIS MATTERS DAN GLANZ REMOVED 

9. Responsible Attorney (By Open task and Event): Same as No. 8. 
SAME AS NO. 8 ABOVE 

10. Task Views (By Client): Lists as the first client (06036). This is a data entry error. The 
client is FED. Please ensure quality control over data entry. 

TECHNICAL ERROR THIS ENTRY WAS DELETED AND RE-ENTERED. 

1 1 . Task Views (By Responsible Attorney): same issue of not assigned; rationalize 

NOT CATEGORIZED OR NOT ASSIGNED - AUTOMATICALLY CAME UP 
WHEN NO RESP ATTY NAME WAS INSERTED WHEN CREATING NEW 
MATTER. HAS BEEN CORRECTED AS IN NO. 5 ABOVE. 

12. View Calendar (By Event and Task): This view is listing Tasks by Entry Data; Events 
should de listed by Event Date (not entry date); Tasks should be listed by Due Date (not entrv 
date) . ' 

THIS REQUEST HAS BEEN COMPLETED. 

1 3. Reports (Client Matter): This is unnecessary if we implement the change identified in 1 1 • 
Not needed. Delete ~ ' 



QSMI WILL DELETE - REPORT OF NO USE. CLIENT/MATTER VIEW 
REPLACES TfflS REPORT. 



14. Reports (Status Report): Big problems! ! ! This report is not including the desired 
information. Is it even in the database. Shelly do not do additional key entry to get it there. 
Find out what needs to be done to make it work. The client selection is cumbersome and the date 
issue is unduly limiting and confusing. We need to generate reports of the type we have 
discussed previously (' oftc/re*> ' . There appears to be a fundamental 
conceptual problem here. Do not spend any more time climbing this ladder, until you are sure it 
is leaning on the correct wall! ! ! 

THE REPORTING FORMAT HAS BEEN UPDATED - SEE' ATTACHED* 

15. Reports (Responsible Attorney): Same as f 14. 

I WOULD LIKE TO MAINTAIN THIS REPORT FOR PRINTING PURPOSES ONLY. IT SHOWS 
CLIENT/MATTER/PROJECT LEVEL BY ATTORNEY . NONE OF THE OTHER VIEWS HAVE THIS 
CAPABILITY WITHOUT A LOT OF SEARCHING AND SORTING AND MANUAL ADJUSTMENT. 

16. IT WAS REQUESTED FROM THE ATTORNEYS TO SEE OR GET NOTIFICATION OF DUE 
DATES. THEY CAN NOW PULL UP THE CALENDAR VIEW (BY DAY, WEEK, MONTH, ETC.) AND 
VIEW ALL DUE DATES IN THE OPEN EVENT VIEW AND OPEN TASK VIEW. FROM THOSE VIEWS 
THERE IS THE CAPABILITY TO SEARCH THEIR NAME TO SHOW ONLY THEIR TASKS WHICH ARE 
DUE BY DAY, WEEK, MONTH, ETC. THERE IS NO AUTOMATIC NOTIFICATION OF A DUE DATE 
TO ANYONE OTHER THAN ME EMAILING IT. ONCE A TASK IS ACTED ON THERE IS A TOGGLE 
FOR RESPONSIBLE ATTORNEY TO CLOSE OUT. 

17. THERE IS NOW A NEW FORM TO "CREATE AN ACTION" WHICH CAN BE ACCESSED AT 
THE PROJECT LEVEL. THE THREE MAIN ENTRIES: NEXT ACTION, ACTION REQUIRED BY AND 
DATE ACTION DUE CAN BE COMPLETED AND THESE ENTRIES TRANSFER OVER TO THE 
STATUS TABLE REPORT. UNLIMITED ACTIONS CAN BE ENTERED AND CLOSED OUT WHEN 
ACTED ON. 

18. THERE IS A NEW "PROJECT VIEW - BY NEXT ACTION" WHICH ALLOWS VIEWING AND 

NE ^ AC I' ON ASSIGNED TO THAT PROJECT. (THIS CROSS-REFERENCES WITH #17 
ABOVE). SEf- #l?W*&F : ir 

ALL TASKS CAN BE SEEN FROM THE CALENDAR VIEW AS WELL AS VISUALLY FROM THE 
GENERAL VIEW. THE ATTORNEYS CAN NOW ENTER TASKS AS WELL AS ENTER NEXT 
ACTIONS TO APPEAR ON THE STATUS TABLE REPORT. ONLY THE RESPONSIBLE ATTORNEY 
CAN CLOSE OUT A TASK BY USING THE TASK CLOSURE TOGGLE. 
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IP Agenda Database Student Handout 

I. Introduction 

What is it, and what does it do??? - The IP Agenda database is a Lotus Notes 
application which serves as a repository for information pertaining to Clients, Matters, 

Projects, Events, and Tasks relating to Patent, Copyright, Trademark, and other 

applications and filings (both domestic and internationally). The IP Agenda database 
allows users to maintain timely and accurate tracking data on active Patent, Copyright, 
Trademark, and other applications and filings. 

Who uses it??? - The user community of the IP Agenda database includes attorneys, the 
docket manager, assistants, and any other persons in the Intellectual Property Practice 
Group. 



II. Walk-Through of Forms 
A Creating Forms 
1. Create Client Form 

<see Figure #1 in the IP Agenda slides booHet> 

<Click on the "Add a New Client" button at the top of the window> 

sl The Client Form provides the client name, client number (for in-house tracking), 
Point Of Contact information, and attorney information. 

b. To begin filling out the client form, fill in the name and client number fields (you 
can choose a client number from a list box or you can add one of your choosing). 

c. Contact Name - click on the arrow to bring up a box which will allow you to add a 
new contact or change an existing one. 

d. Contact Address - can click the drop-down list box to change Contact Address 
information. 

e. Line of Business - choose one or more from the drop-down list box, or add your 
own in the "New Keywords" field. 

f. Products/Services - choose one or more from the drop-down list box, or add your 
own in the "New Keywords" field. 

<Attorney Information section> 



1 



g. Referral - choose only one person from the drop-down list provided. 

h. Originating Attorney - can choose multiple people from the drop-down list 
provided. 

u Billing Attorney - choose only one person from the drop-down list provided. 

j. Billing - choose one or more from the drop-down list box, or add your own in the 
"New Keywords" field. 

k. Alternative - only one choice from the drop-down list box (10% Discount). 

1. Related To - choose one or more numbers from the drop-down list box, or add your 
own in the "New Keywords" field. 

<Document Statistics section> 

m. Document Status - shows the status of the document - open or closed. This field 
is filled in automatically by the system. 

n. Document History - shows the modification history of the document This field is 
filled in automatically by the system. 

o. Button Bar - Cancel - cancels the form. 

Route via Email - allows you to send your client form with comments 

to a list of recipients of your choosing. 
Save and Close - allows you to save and close your form. 

2. Create Matter Form 

<see Figure #2 in the IP Agenda slides boofdet> 

<Need to highlight a Client Data document (black text) prior to creating!> 

<Click on "Create New Matter" button at the top of the window> 

What is a Matter??? - A Matter is a high-level overview of the Patent, Copyright or 
Trademark effort (in a specific area) on behalf of a client 

a. Matter Name - fill in the field with the name of the Matter. 

b. Matter Number - choose only one from the drop-down list box, or add your 
own in the "New Keywords" field. 

c. Matter Creation Date - the system pre-fills today's date for you, or you can 
change it as you see fit. 
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d. Matter Description - fill in the field with some descriptive text. 

e. Responsible Attorney - choose one or more from the drop-down list box. 
Cannot create your own attorney names! 

£ Billing Attorney - choose one or more from the drop-down list box, or add your 
own in the "New Keywords" field. 

g. Attach Image - click on the "Attach Image" button to add in an image file 
which pertains to the Matter here. You can also type in some descriptive text in 
this field as well. 

h. Invention Detail - click on the "Invention Detail" button to bring up a dialog 
box which provides more detail and fills in the section. For the Invention Detail 
dialog box, fill in the fields, or choose from list boxes or calendars. 

<Document Statistics section> 

i. Document Status - shows the status of the document - open or closed. This 
field is filled in automatically by the system. 

j. Document History - shows the modification history of the document This field 
is filled in automatically by the system. 

k. Button Bar - Cancel — cancels the form. 

Route via Email - allows you to send your client form with 

comments to a list of recipients of your choosing. 

Save and Close - allows you to save and close your form. 

3. Create Project Form 

<see Figure #3 in the IP Agenda slides booklet> 

<Need to highlight a Matter document prior to creating!> 

What is a Project??? - A Project is a subdivision of a Matter, with country-specific 
Patent or Trademark information. 

<Clickon the "Create New Project" button at the top of the window> 

Choose the type of Project from the list provided. <choose Prosecution: Patent as an 
example! !!> 

a. Client Name and Number, Matter Name and Number, and Project fields are 
pre-filled by the system. 
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b. Project Creation Date - the system pre-fffls today's date for you, or you can 
change it as you see fit. 

c. Description - fill in the field with some descriptive text 

d. Country - choose one or more from the drop-down list box, or add your own in 
the "New Keywords" field. 

e. Create Separate Country Projects - choose Yes or No from the radio buttons to 
create or not create individual projects for separate countries. 

f. Associate - select one or more names from the list box provided. 

g. Associate Address - fill in the field with some descriptive text. 

h. Responsible Attorney - choose one or more from the drop-down list box. 
Cannot create your own attorney names ! 

i. Comments - fill in the field with some descriptive text. 
<Project Detail sectiori> 

Note: Other types of Project Detail sections exist, with minor changes depending 
on your choice of project 

j. Client's Billing Number - fill in the field with the appropriate number. 

k. Inventor - fill in the field with the name of the Inventor. 

L Serial Number - fill in the field with the appropriate serial number. 

m. Related Matter Nos, Classes (POFA/FA), Type of Application, Related 
Application^) Serial Nos - fill in these fields with the appropriate text. 

n. Power of Attorney - choose one or more from the drop-down list box, or add 
your own in the "New Keywords" field. 

o. Patent Detail - click on the "Patent Detail" button to bring up a dialog box 
which provides more information and fills in the section. For the Patent Status 
dialog box, fill in the fields, or choose from list boxes or calendars. 

<Document Statistics section> 

p. Document Status - shows the status of the document - open or closed. This 
field is filled in automatically by the system. 
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<Click on the "Create New Event" button at the top of the window> 

What is an Event??? - An Event is an action or occurrence related to a Project, 
such as Filing an Application, Sending or Receiving Correspondence, or Telephone 
Conversations. 

a. Client Name and Number, Matter Name and Number, and Project fields are 
pre-filled by the system. 

b. Date Event Created - the system pre-fills today's date for you, or you can 
change it as you see fit. 

c. Event Date - fill in this field with the appropriate date. 

d. Event Name - click and choose one from the list, or add your own in the New 
Keywords field. 

e. Event Description - fill in the field with some descriptive text. 

f. Responsible Attorney - click the drop-down list box and choose one or more 
responsible attorneys for this event. 

g. Routing Information - click the drop-down list box and choose one entry from 
the list, or add your own in the New Keywords field. 

<Closing = see Figure #6 in the IP Agenda slides booklet> 

<Event Retirement section - Only the Attorney who has been assigned this Event can 
close it You will not be able to do anything in this section until you save your Event 
documents 

h. Event Retirement - Press the button entitled, "Retire this Event". You will 
then be prompted to fill in the following fields: 

Protect this form from Archive - Select the Yes/No radio button if you would like 
to protect this event from archiving (e.g., removed from the database and 
transferred to another archive database). 

Event Retired (date) - Fill in the date of retirement 

Retired By - This field is pre-filled by the system. 

<Document Statistics section> 

i. Document Status - shows the status of the document - open or closed. This 
field is filled in automatically by the system. 
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j. Document History - shows the modification history of the document This field 
is filled in automatically by the system. 

k. Button bar - Cancel - cancels the document. 

Route via Email - allows you to send your client document with 
comments to a list of recipients. 

Manually Route - prints out cover page (routing slip) to place with hard 
copy. 

Save and Close - allows you to save and close your document. 
6. Create a New Task 

<see Figure #7 in the IP Agenda slides booklet> 

<Need to highlight a Project document prior to creating!> 

<Click on the "Create New Task 1 ' button at the top of the window> 

What is a Task??? - A Task is an action which is taken in support of a Project over 
time, such as preparing correspondence, speeches, seminars, etc* 

a. Client Name and Number, Matter Name and Number, and Project fields are 
pre-filled by the system. 

b. Task Name -fill in the field with some pertinent text. 

c. Task Creation Date - the system pre-fills today's date for you, or you can 
change it as you see fit 

d. Task Due Date and Task Description - fill in these fields with some descriptive 
text 

e. Responsible Attorney - click the drop-down list box and choose one or more 
responsible attorneys for this event. 

<see Figure #8 in the IP Agenda slides booldet> 

<Task Closure section - Only the Attorney who has been assigned this Task can close it. 
You will not be able to do anything in this section until you save your Task document. > 

f. Task Closure - Press the button entitled, "Close this Task". You will then be 
prompted to fill in the following fields: 

Protect this form from Archive - Select the Yes/No radio button if you would like 
to protect this task from archiving. 
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I certify that this Event/Task was completed on - Fill in the date of completion. 
Signed - This field is pre-filled by the system. 
<Document Statistics section> 

g. Document Status - shows the status of the document - open or closed. This 
field is filled in automatically by the system. 

h. Document History - shows the modification history of the document. This 
field is filled in automatically by the system. 

i. Button Bar - Cancel - cancels the document. 

Route via Email - allows you to send your client document with 
comments to a list of recipients. 

Manually Route - prints out cover page (routing slip) to place with hard 
copy. 

Save and Close - allows you to save and close your document 

m. Walk-Through of Views 
A. Different Views 

1. Client View (By Name) 

a. sorts Clients By Name. Two methods of sorting Matters -> 

b. Matters By Name -sorts Matters by Name underneath each Client. Default View 
. of the database. 

c. Matters By Number - sorts Matters by Number underneath each Client. 

2. Client View (By Number) 

a. sorts Clients by their Client Number. Two methods of sorting Matters -> 

b. Matters By Name - sorts Matters by Name underneath each Client. 

c. Matters By Number - sorts Matters by Number underneath each Client 

3. Client List View (By Name) 

<see Figure #9 in the IP Agenda slides booklet> 
a. Matters By Name - without Events or Tasks. 

4. Responsible Attorney Views - Responsible Attorneys 
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This view has data items categorized by: 

a. Matter - only Matters display in the view. 
<see Figure #10 in the IP Agenda slides booklet 

b. Project - only Projects display in the view. 

c. Open Event - only Open Events display in the view. 

d. Open Task - only Open Tasks display in the view. 

e. By Open Task and Event - only Open Tasks and Events display in the view. 

5. Task Views 

a. By Client - list of Tasks arranged by Client 
<see Figure #11 in the IP Agenda slides booklet> 

b. By Responsible Attorney - list of Tasks arranged by Responsible Attorney. 

c. By Closed Events and Tasks - list of Closed Events and Tasks. 

6. Project Views 

< see Figure #12 in the IP Agenda slides booHet> 

a. By Next Action - lists Projects and Next Actions categorized by Clients. 

7. View Calendar 

<see Figure #13 in the IP Agenda slides booklet> 

a. By Open Events - lists Open Events by date when they're due. 

b. By Open Tasks - lists Open Tasks by date when they're due. 

c. By Open Events and Tasks - lists both together. 

8. Reports 

Runs reports which users can print out to hard copy. Only IP Agenda Database Managers 
can utilize this functionality. 

9. Exit Database 

Exits the IP Agenda Database. 

10. Comment/Trouble Report 

<see Figure #14 in the IP Agenda slides booklet> 
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Sends an email to the IP Agenda Database Administrators with your comments. 
11. Database Administration 

Only IP Agenda Database Administrators can utilize this functionality. 
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QSMI 

7700 Little River Turnpike, Suite 302 • Annandale, VA 22003 
Tel: 703.658.9700 Fax: 703.658.9702 
www.qsmi.com 



April 6, 2001 



Mr. Patrick Coyne, Esq. 
Collier Shannon Scott, PLLC 
Washington Harbour, Suite 400 
3050 K Street, NW 
Washington, DC 20007-5108 

Re: Intellectual Property Agenda Database Enhancement Project 

Dear Mr. Coyne: 

As a follow-up to our meeting on February 20, 2001, 1 am attaching a summary of the work to be 
accomplished, a list of the variables, and a rough order of magnitude cost that I believe will be 
required to complete the upgrades to the IP Agenda Database. 

After a review of your requirements, and the period of performance of 90 days, QSMI will 
complete the following tasks: 

1 . refine project requirements 

2. effect enhancements to improve the "look and feel" of the application 

3. implement linkage between scanned Event documents and "Event" forms 

4. produce customized views for no more than four (4) key clients to review their respective 
documents via a virtual private network (VPN) 

5. assist Collier Shannon Scott's Notes administrator configure the access control list (ACL) to 
restrict client access to their data within the IP Agenda Database 

6. create scheduled or manual data exchange agents to load data from CPI and TMC Finance 
databases into the IP Agenda Database on a periodic basis 

7. develop dynamic charts to compare budgeted estimate with progress on projects to date 

Given the compressed period of performance and the potential number of variables involved in 
the execution of the work, we do not feel that the remaining requested capability, dynamically 
drawn process charts that illustrate progress within the filing routine, can be achieved within the 
required time. 

Due to the anticipated complexity of the interfaces with the two external systems (CPI and the 
TMC Finance system) that may affect the execution of the work, this project will be 
accomplished on an hourly basis - not at a firm fixed price. You will not be charged for the 
balance of the estimate if the work is completed ahead of schedule. 




accomplished on an hourly basis - not at a firm fixed price. You will not be charged for the 
balance of the estimate if the work is completed ahead of schedule. 

I am proposing to provide you with an informal project report on a twice-monthly basis in order 
to assist your staff in monitoring the progress of the work and the use of your budget 

If you accept this proposal, we would like to commence the project by working with your staff 
for several days to review the current functionality of the IP Agenda Database, and resolve issues 
covered in the Project Variables section of the attached proposal. 

If you have any questions or require any additional information, please call me at (703) 658-9700 
extension 3002. 

Sincerely, 



Carrington V Thomson, 
CFO 

Enclosure 



Intellectual Property Agenda Database Enhancement Project (Draft) 



1 Introduction 

Collier Shannon Scott PLLC's Intellectual Property Practice area has a requirement for 
enhancements to the overall functionality of the IP Agenda Database. These enhancements range 
from improving the "look and feel" of the application, to providing management with tools to 
monitor the progress of the various active matters. 

The period of performance for completing the requirements outlined below is 90 days from the 
date that this proposal is accepted. 

The following constitutes QSMTs best estimate of the requested enhancements that can be 
completed within the time frame of 90 days, and the resources and their associated costs based 
on the estimate of the hours required to complete this project 

2. Project Requirements 

QSMI proposes to complete the following requirements requested by principal members of the 
Collier Shannon Intellectual Property practice group: 

♦ "Quick Fixes" to improve the appearance of the application - including removing the 
Invention Detail layout region currently accessed from the "Matter" form. 

♦ Minimize the need for manual data entry for the users of the IP Agenda Database by 
expanding the scheduled data transfers agents. These agents will populate data fields in the 
Client, Matter, Project and Event forms from the CPI Access docket database and the TMC 
Finance system. 

♦ "Event" forms will contain links to scanned documents with which the Events are associated. 
Due to the need to minimize the size of documents in the IP Agenda database, the scanned 
documents will reside on the file system with links to these files in the Event form. 

♦ For budget monitoring, QSMI will add "projected -vs- actual" charting functionality at the 
Project level. The charting data will track actual hours spent on a Project versus hours the 
budgeted hours/dollars. The data for the chart will be drawn from the fixed list of options 
provided by the TMC Finance system. The budgeted hours/dollars will be based on a list of 
options provided by the accounting system. 

♦ Key clients may access only their respective data sets contained in the IP Agenda database 
via the Collier Shannon VPN; client views will be based on "Private Views" set up on the 
Server, and ACL settings in the database. 

The IP Practice Area also wanted the capability for key clients to visually track the progress of 
projects. Due to the difficulties related to establishing all of the variations and exceptions to the 
processes, QSMI feels the scope of this task is technically challenging and should be addressed 
separately. 



3. Assumptions 

QSMI assumes the following in regards to the above requirements: 

♦ Collier Shannon will provide access to the TMC Finance system via ODBC drivers, as 
necessary, so that the charting function can pull information on actual hours spent in relation 
to a Project. 

♦ Access will continue to be provided for the CPI Database, and QSMI will be informed of any 
changes or upgrades to the CPI Access database. 

♦ Key client access to the Collier Shannon network via VPN connections will be the 
responsibility of the Collier Shannon IT staff. 

♦ QSMI assumes that the IP Agenda application will continue to be developed in Notes V4.6+. 
Should Collier Shannon migrate Notes clients to R5, QSMI must be informed in advance, as 
the functionality of the later version of Notes is significantly different from R4.x. 

4. Additional Considerations 

The following information has not been clarified by Collier Shannon, and may impact the level 
of resources estimated: 

♦ QSMI expects to use a third party application to associate Event document images with the 
"Event" form in concert with the document scanning process. If this product works as 
advertised, significant savings could result. 

♦ QSMI will advise Collier Shannon if a 'third party" charting application would be more cost 
effective than developing a proprietary solution. Should a "third party" application be 
chosen, QSMI will integrate the application into the database. 

♦ Removing the "Invention Detail" layout region from the "Matter" form will be effective only 
if the CPI Database can be relied upon to populate the corresponding fields on the Project 
form. If manual entry of invention data is required on a large number of projects, we 
recommend that the current architecture remain unchanged. 

♦ The ability to link related "Project" forms to "Matter" forms, or "Task" forms to "Project 
forms that do not have a "child/parent* * relationship pose technical issues. 

5. Project Variables 

♦ QSMI has limited information on the TMC Finance system. We will need a schematic 
detailing the data structure and data element names, as well as the nature of the fixed list of 
project estimate options in the TMC Finance system. We understand that ODBC drivers are 
available for this system, making the development of an interface somewhat predictable. 
However, due to our lack of aocess to and control over this system, contingencies could arise 
that impact the labor required to perform the work. 

♦ There may be a requirement to create new "Client" forms when the IP Agenda Database 
detects a new client in the CPI Access database. New "Matter" forms may need to be created 
as well. 



♦ It is our understanding that budget estimates logged into the TMC Finance system are made 
by matter. Apportioning the budget for the Matter to all "child" projects, then aggregating 
the totals for completed "Project" forms and "Task" forms, presents a significant 
programming challenge. 



6. Cost Estimate 

The rough order of magnitude estimate for this project is detailed below. The price associated 
with this proposal constitutes a cost estimate based upon the hours and the labor categories that 
we believe are adequate to complete the work. The number of labor hours actually used at the 
hourly rate listed below will determine the cost of this project 



Personnel 


Hourly 
Rate 


Estimated 
Hours 


Estimated 
Cost 


Erickson 


$60.00 


8 


$480.00 


Dorfeld 


$50.00 


320 


$16,000.00 


White 


$80.00 


270 


$21,600,00 


Total: 


$38,080.00 



use on this project (subject to prior authorization). 
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(Tracking, Reporting, and 
Quality Control System) 



Practice Management Application 



Patrick J. Coyne, Esq. 
Collier Shannon Scott, PLLC. 
3050 K Street, N.W. 
Washington, D.C. 20007 
(202) 342-8606 (phone) 
(202) 342-8451 (fax) 
pcoyne@colliershannon.com (email) 
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QSMI MEETING OF 4/6/01 

The schedule has been changed for a target completion date of July 9 th ; 

QSMI presented a proposal - letter dated April 6, 2001 (attached); 

The database should: 

Allow deletion of items from database at time of data entry and prior to 
replication; 

Track who did the deletions; 
Limit number of people with "delete" access; 
- Archive, 

Budget for this project - - need to secure approval of estimate; refine preliminary estimate 
of $38,000 at project definition stage (April 27); 

QSM: patent and trademark prosecutions (at this time); litigation; and due diligence. 
Collier Shannon to provide flowcharts; 



Project Stages: 



Refine project requirements (1 week); 

Effect enhancements to improve the "look and feel" of the current 
application (2 weeks); 

Implement linkage between scanned Event documents and "Event" forms 
(1 month); 

Customize VPN views for no more than 4 key clients - eMagin, Leap, 
Jacobs; TBA (3 months); 

CSS Notes Administrator to configure access control list to restrict client 
access (3 months); 

Create scheduled or manual data exchange agents to load data from CPI 
and TMC (3 months); 



Doc 56?740/Veision 1-4/11/01-2:26 PM 



• Develop dynamic charts to compare budgeted estimate with progress on 
projects to date (2 weeks). 

Functionality to be Added: 

- Scanning/imaging to facilitate routing; 

Modeling process and events to facilitate process reporting; 

- Budget "silos" to facilitate tracking expense against budget; 

- Survey for our clients to give us feedback; 
Schedule of forthcoming meetings: 

April 12 - "Look and Feel" meeting - 1 1 :00-l :G0 with lunch; 
April 23 - "Brainstorming Session" - 12:00-2:00 with lunch; 
April 27 - "Project Definition" 
TB A - Milestones 

- July 9 - Project Deadline. 
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QSMI "Feel & Look" 
and "Brainstorming" 
Meeting- 4/23/01 

Cleanup of Database and Brainstorming Session: 

I. Client Form 

A. Client Level: 

1. "Client Number": This list must show all client numbers; numbers not 
coming from CPI, but from TMC. 

2. "Contact Name" and "Contact Address" must come from the firm's address 
book. Pat Mansuy has this list. 

B. Attorney Information: 

1 . "Referral" name must come from firm's address book; 

2. "Contact Name," "Contact Address," "Line of Business," and "Products" 
must come from IP address group. Pat can create an IP address group; 

3. "Billing Attorney," "Originating Attorney" must come from firm's address 
list; 

4. "Related To" should pull off from TMC. 

II. Matter Form 

A. Matter Level: 

1 . "Matter Name" must be allowed to have long names, 0(Jote: Once a matter 
{ have been set up under a client it cannot be moved to another.); 

2. "Matter No." should be coming from TMC; 

3. "Matter Creation" date is ok as is; 

4. "Matter Description" doesn't allow to make additions. Change "Matter 
Description" to "Related Matters". 
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5. "Responsible Attorney" should come from the firm's client list, The "Not 
Assigned" must be fixed. Pat must add a "Not Assigned" category to the 
firm's address list and the billing address list; and 

6. "Billing Attorney" should fill in automatically as in the Client Level. 

B. Invention Detail: This will be left at ttjfe Pr<^jecJ,Level. 

III. Project Forms (Prosecution: Patent; Prosecution: Trademark; Prosecution: Copyright; 
Counseling & Advice; Litigation; and Other): 

A. Client Level (for all forms listed above): 

1 . "Client Name & Number" is ok as is; 

2. "Matter Name &b Number" must be corrected to pull from parent 
information; 

3. "Project," "Project Creation Date, h "Description," "Country" are ok as they 
are; 

4. "Associate" and "Associate Addresses" are ok pulling from CPI, but change 
name from "Associate" to "Foreign Associate"; 

5. "Responsible Attorney" - there should be a default Set up for the "Billing 
Attorney" and the "Responsible Attorney" to develop from the parent 
information; 

6. "Comments" is ok as is; 

7. "Image" and "Attach Image" button - remove the "Image" category, but only 
if this is not a big deal to change. 

B. Project Detail: 

1 . For Counseling & Advice Project Form: 

a) "Affiliated Parties" should be removed from here; 

b) "Type of Project," "Comments," ''Counsel" are ok, but "Counsel" 
should be drawing out of the I Enterprises Database (IP address 
group). 
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2. For Litigation Project Form: 

a) "Appearance of Counsel" should pull out of firm's address list; 

b) "Opposing Party" and "Counsel for Opposing Party" should draw frm 
IP address group; 

3. For Other Project Form: 

a) "Project Description"and "Event" should be combined and changed 
to "Comments". 

4. For Copyright Proj ect Form: 

a) "Serial Number" is ok as is; 

b) "Related Matter Numbers" should be connected to the matter 
information; 

c) "Author" should be coming from the IP address list. 

5. For Patent Project Form: 

a) "Related Matter Nos." should be coming from the invention detail; 

b) "Power of Attorney" should come from the IP address group. 

6. For Trademark Project Form: 

a) "Trademark Name" and "Mark" are the same and should be 
combined. These should come from the CPI list; 

b) "Classes" and "Classes (POFA/FA)" should be combined. 

IV. Event Form 

A. Client Level 

1 . "Event Name" and "Responsible Attorney" must be fixe^^Event Name" 

and "Subject" are to be combined; "Event Name£ is to-feechanged to "Event f 
Description"; remove "Event" pick list; 
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2. Add in "Flowchart" before "Event Name" - the flowchart is only to give the 
client a "picture" of where we are and where we are going - give QSMI copy 
of Litigation Flowchart; 

3 . Add in "Provisional Times," and "Anticipated Times to Next Milestone"; 

4. "Routing Information" should be pulling from the IP address group and firm 
directory. 

V. Task Form 



A. Client Level 

1 . "Task Description" and "Task Name" should be Combined and changed to 
"Comment^; 

2. Add "Reminders" for all different project forms; 

3. "Assigned To" should be pulled from the firm directory. Pat needs to add 
Patrick Coyness name to the "roll". 

B. Task Closure: Closure can only be done by the responsible attorney. 
VI. Reports - This feature must be accessible to everyone to prepare reports. 

1 . "Responsible Attorney" list must be from the firm' s directory; 

2. Transactional - everything at the ^Project Level" is applicable on the general sheet. 

3. Add: "Roll (target/acquire)" ^ 

"Other Party" * 
"Co-counsel" (to pull from IP address group) ' 
"Other Party's Counsel" (to pull from the IP address group) ^ 
"Closing Date" 

"Comments" / 

Next Steps: 

- QSMI to meet with Pat Mansuy this week (4/27) 

- Week from Friday - new meeting with QSMI (5/2) 
-Staff meeting (5/8) 

- Final Flowcharts (5/10) 
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7700 Little River Turnpike, Suite 302 • Annandale, VA 22003 
Tel: 703.658.9700 Fax: 703.658.9702 
www.qsmi.com 




May 4, 2001 

Mr. Patrick Coyne, Esq. 
Collier Shannon Scott, PLLC 
Washington Harbour, Suite 400 
3050 K Street, NW 
Washington, DC 20007-5108 

Re: Intellectual Property Agenda Database Enhancement Project 
Dear Mr. Coyne: 

As a follow-up to our meeting on April 23, 2001 and our subsequent teleconference with Pat Mansuy 
on May 1 , 2001, 1 am attaching a summary of the work to be accomplished, a list of the variables, and 
a rough order of magnitude cost that I believe will be required to complete the upgrades to the IP 
Agenda Database. 

After a review of your requirements, and the period of performance of 90 days, QSMI will complete 
the following tasks: 

1 . Effect enhancements to improve the "look and feel" of the application 

2. Implement linkage between scanned Event documents and "Event 5 ' forms 

3. Produce customized views for no more than four (4) key clients to review their respective 
documents via a virtual private network (VPN) 

4. Assist Collier Shannon Scott's Notes administrator with configuring the access control list (ACL) to 
restrict client access to their data within the IP Agenda Database 

5. Create scheduled or manual data exchange agents to load data from CPI and TMC Finance 
databases into the IP Agenda Database on a periodic basis 

6 . Assist Collier Shannon FT staff in developing dynamic charts to compare budgeted estimate with 
progress on projects to date 

7. Develop flow charts to track how far a project has progressed towards completion 

Due to the anticipated complexity of the interfaces with the two external systems (CPI and the TMC 
Finance system) that may affect the execution of the work, this project will be accomplished on an 
hourly basis - not at a firm fixed price. Collier Shannon Scott will not be charged for the balance of the 
estimate if the work is completed ahead of schedule. 



You may wish to consider the possibility of converting the application from Lotus Notes to an entirely 
Web-enabled application based upon a relational database. This is discussed briefly in Section 5 of this 
proposal. While this approach has a significant limitation - users need to be connected to the corporate 
intranet - system users would not be trammeled by the inflexible Client, Matter, Project, Event/Task 
document-level hierarchy that is inherent in Lotus Notes. 

I am proposing to provide you with an informal project report on a twice-monthly basis in order to 
assist your staff in monitoring the progress of the work and the use of your budget 

If you accept this proposal, we would like to commence the project by working with your staff for 
several days to review the current functionality of the IP Agenda Database, and resolve issues covered 
in the Additional Considerations section of the attached proposal. 

If you have any questions or require any additional information, please call me at (703) 658-9700 
extension 3002. 

Sincerely, 



Carrington V Thomson, 
CFO 

Enclosure 



Intellectual Property Agenda Database Enhancement Project 



1. Introduction 

Collier Shannon Scott PLLC's Intellectual Property Practice area has a requirement for enhancements 
to the overall functionality of the IP Agenda Database. These enhancements range from improving the 
"look and feel" of the application, to providing management with tools to monitor the progress of the 
various active projects. 

The period of performance for completing the requirements outlined below is 90 days from the date that 
this proposal is accepted. 

The following constitutes QSMTs best estimate of the requested enhancements that can be completed 
within the time frame of 90 days, and the resources and their associated costs based on the estimate of 
the hours required to complete this project 

2. Project Requirements 

QSMI proposes to complete the following requirements requested by principal members of the Collier 
Shannon Intellectual Property practice group: 

♦ "Quick Fixes" to improve the appearance of the application - including correcting errors occurring 
in the IP Agenda views and documents caused by data corruption. 

♦ Minimize the need for manual data entry for the users of the IP Agenda Database by expanding the 
scheduled data transfer agents. These agents will populate data fields in the Client, Matter, and 
Project Forms from the CPI Access docket database and from a SQL Server table or database flat 
file containing data exported from the TMC Finance system. 

♦ "Event" forms will contain links to scanned documents with which the Events are associated Due 
to the need to minimize the size of documents in the IP Agenda database, the scanned documents 
will reside on the file system, or in a SQL Server table, with links to these files in the Event form 

♦ For budget monitoring, QSMI will assist Collier Shannon IT staff in creating a ''projected - vs - 
actual" charting functionality at the "Project 5 ' level on an as-needed basis. The charting data will 
track actual hours/dollars spent on a Project versus the hours/dollars budgeted Data for the actual 
hours/dollars spent will be drawn from the fixed list of options provided by an exported file or table 
containing accounts receivable data from the TMC Finance system. The budgeted hours/dollars will 
be based on a list of options provided by the accounting system. 

♦ Key clients may access only their respective data sets contained in the IP Agenda database via the 
Collier Shannon VPN; client views will be based on "Private Views" set up on the Server, and 
ACL settings in the database. 

♦ In order to allow key clients to visually track the progress of IP projects, QSMI will develop a 
charting functionality to mark where a Patent, Trademark, or Litigation project has progressed along 
a well-defined project path. The data for the chart will come from a predetermined number of 
Events occurring for a particular Patent or Trademark. 



Based on prior discussion with Collier Shannon IT staff, QS3VH has made assumptions about the system 
architecture of the EP Agenda application on the Collier Shannon network, and resources that will be 
provided for the implementation of the IP Agenda upgrade. These assumptions are discussed in the 
following section. 

3. Assumptions 

QSMI assumes the following in regards to the above requirements: 

♦ Collier Shannon will provide access to a SQL Server table or flat file containing exported data from 
the TMC Finance system, as necessary, so that the charting function can pull information on actual 
hours spent in relation to a Project. The data transfer agent will be using this source to pull 
Client/Matter information as well. 

♦ Access will continue to be provided for the CPI Database, and QSMI will be informed of any 
changes or upgrades to the CPI Access database. 

♦ Key client access to the Collier Shannon netwoik via VPN connections will be the responsibility of 
the Collier Shannon IT staff. 

♦ QSMI assumes that the IP Agenda application will continue to be developed in Notes V4jc 
Should Collier Shannon migrate Notes clients to R5, QSMI must be informed in advance, as the 
functionality of the later version of Notes is significantly different from NotesV4x. 

♦ QSMPs understanding is that the Enterprises database will not be fully configured for another year. 
The IP Agenda database will not be able to pull information from iEnterprises until this client 
relations management tool is implemented 

In addition to these assumptions, there are some additional variables, listed in the following section, that 
need to be addressed at the start of the project These considerations may affect the level of resources 
necessary to complete the upgrade. 

4. Additional Considerations 

The following information has not been clarified by Collier Shannon, and may impact the level of 
resources estimated: 

• ♦ QSMI expects that the scanned documents will be entered into the IP Agenda database initially. 
QSMI will develop functionality to send scanned documents to a SQL Server table or a shared file 
directory, and associate them with the Event documents they were sent from. 

♦ QSMI will advise Collier Shannon if a 'third party" charting application would be more cost 
effective than developing a proprietary solution. Should a "third party" application be chosen, 
QSMI will integrate the application into the database. 

♦ QSMI expects that the TMC Finance data is logged-in at the IP Agenda Project level. It is. 
QSMTs understanding that a selection from a list of budget options will be made by Collier 
Shannon staff when the finance data is first entered The budget charts will be based partly on this 
data. 



Some of the requirements outlined in Section 2 introduce a new complexity in the IP Agenda 
application. Adopting the system implementation discussed below could reduce this complexity. 



5. Alternative System Implementation 

An alternative system implementation would consist of changing the focus from a document-centric to a 
data (RDBMS)-centric model using Macromedia's ColdFusion application. The advantages of using 
ColdFusion for the system include: 

♦ A shortened prototype development period 

♦ Improved system response time, especially considering that as the number of data and documents 
within the present Lotus Domino system increases, it will cause greater time lags when users access 
the system. 

♦ Allow for the creation of links between "Client" forms to similar "Matters" that are not in the Client 
- Matter document hierarchy, A relational database would allow system users to create 
relationships between otherwise unrelated documents. This capability is not feasible with the current 
Lotus Notes development environment 

Disadvantages to using a ColdFusion system include the requirement for end users to maintain a 
connection to the Collier Shannon intranet in order to access the system. 

6. Cost Estimate 

The rough order of magnitude estimate for this project is detailed below. The price associated with this 
proposal constitutes a cost estimate based upon the hours and the labor categories that we believe are 
adequate to complete the work. The number of labor hours actually used at the hourly rate listed below 
will determine the cost of this project 



Pteisonnel Hourly Rate Est Hours Est Cost 

Adams $35.00 8.00 $280.00 

DorfekJ $55.00 320.00 $17,600.00 

Doggett $95.00 120.00 $11,400.00 

Kirby $95.00 160.00 $15,200.00 

Total Estimate: $44*480.00 



Other Direct Costs (ODC): any third-party charting or graphics software purchased by QSMI for use 
on this project (subject-to prior authorization). 



* With ColdFusion, Web pages are designed using ColdFusion forms, along with ColdFusion and HTML tags. 
ColdFusion tags are used to retrieve and input data to and from the back-end database. As new links to other 
systems are required, additional maintenance costs associated with the current implementation are reduced. 



Exhibit U 



PATRICK J. COYNE 
202.342-8606 

pcoyne@colliershannon.com 



MEMORANDUM 

May 29, 2001 

TO: QSMI 

PAT MANSUY 
LISAKRAEMER 
MARIA RUFINO-COBENA 
DOUG WASHINGTON^ 

FROM: PATRICK J. COYNE ^L/ 

RE: NOTES DATABASE 



Attached please find a series of tables summarizing our discussion on April 23 rd regarding 
changes to be made in the Notes Database. Attached are eleven (11) tables summarizing the changes 
that we discussed and agreed upon on our April 23? meeting. 

• Client Form (Exhibit 1) 
Matter Form (Exhibit 2) 

• Project Form - Counseling and Advice (Exhibit 3) 

• Project Form - Litigation (Exhibit 4) 
Project Form - Other (Exhibit 5) 

Project Form - Prosecution: Copyright (Exhibit 6) 
Project Form - Prosecution: Patent (Exhibit 7) 
Project Form - Prosecution: Trademark (Exhibit 8) 
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Event Form (Exhibit 9) 
Task Form (Exhibit 1 0) 
• Project Form - Transactional Due Diligence (Exhibit 1 1) 
Flow charts are attached to the respective Exhibits for Litigation, Patent Prosecution, Trademark 
Prosecution, and Due Diligence. 

We have discussed four discrete areas of functionality that are to be added to the Intellectual 
Property Tracking Database as part of this project: 
Document Links: 

The database is to be enhanced to provide copies of critical documents. Specifically, 
documentation will relate to discrete events that occur and that are tracked in the 
Database. An icon appears at the right hand margin of the event, providing a link to 
the documents. The formatting in which the document will appear is an issue that 
needs to be worked out between Pat and QSML Preferably, the user would click on 
the document link and be provided an image of the document or, alternatively, if the 
document is available on our word processing system, be taken directly to the 
document in the word processing system, if feasible. 
Project Management Tools: 

The proj ect management enhancements should include several possible features. For 
example, several projects are tracked currently in Excel spreadsheets. Others may 
be tracked in Microsoft Project, or comparable project tracking software. Both are 
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desirable links so that if a spreadsheet or project management Gaht diagram or Pert 
chart are available, they can be acessed by clicking on a link. In addition, certain of 
the projects have fairly consistent project flows. I have prepared project flow 
diagrams for: patent prosecution; trademark prosecution; litigation; and due 
diligence. A link should be available to have a similar flow diagram on every project 
type that is available in the Database at some time in the future. For this initial roll 
out at the current stage of the project, only the four project flowcharts provided will 
be included. These charts may be modified so please confirm the format before 
finalizing any coding that requires the chart to appear in a specific format. The 
implementation should tie the advance of the project to the Event names that are used 
in the Database. For example, when a certain Event is reached and recorded in the 
CPI Database, or in the Notes Database, the system should recognize that Event name 
and illuminate or color the corresponding portion of the flowchart to indicate that that 
milestone has been reached in the project. This progressive project tracking should 
be automatic, so that operator or user intervention is not required to indicate the stage 
a project has reached. Rather, the project tracking should be keyed so that a linked 
control vocabulary is used between the CPI Database, the Notes Database, and the 
project tracking tools. 
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Budgeting: 

Similarly, budget information may be available in an Excel spreadsheet. At a 
minimum, budget information should be implemented so that a budget can be set for 
each matter and/or project Each matter and/or project should have a graphic icon. 
The user would click the graphic icon and up would pop a simple tool, such as the 
two silo budget icon model that we have discussed. Preferably the silos would be 
segmented based on the stages of the project, tied to the project's flow diagram. One 
of the silos would indicate the total project budget along with the sub-budget through 
each stage. As the Event milestones are reached, a Total Project Budget silo would 
be illuminated or colored to indicate that that particular budgeting stage has also been 
reached at that milestone. The system will draw information directly from our 
Accounting system (currently TMC) and indicate the total amount billed against the 
budget to date. The system needs to be able to recognize whether the budget is based 
on fees, or fees and disbursements, and the total project budget and accrued project 
budget must be shown against billing must be on the same basis (namely, fees or fees 
and disbursements). 
Reports: 

A series of enhanced reports are needed. In particular, I would like to set milestones 
for certain events, such as reporting out OflBce Actions to clients. This should be at 
a management level that would include a number of client satisfaction guidelines that 
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we are currently developing. For example, one of the reports should track how well 
individual timekeepers are meeting deadlines for specific projects, matters, or clients. 
In addition, budgeting reports should be available to show when we are accruing 
more time than the budget stage that has been reached would permit and when we are 
in danger of going over budget, so that the system will provide advance warning 
before the fees are incurred or billed. We are currently continuing to refine these 
requirements. 
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Table 1 
Client Data Form 



FIELD NAME 


CURRENT SOURCE 


MODIFIED TO DRAW 
INFORMATION FROM: 


COMMENTS 


Client Name 


Free Text 


Same 




Client Number 


Open Keyword Pick List 


Accounting ( l ML) 




Contact Name 


Open Address Entry 
Dialog Box 


Change to Intellectual Property Group 
Address Book (Default) (I 
Enterprises); Finn Address Book (I 
Enterprises) (Secondary) 




Contact Address 


Open Dialog Box Entry 


Change to Intellectual Property Group 
Address Book (Default) (I 
Enterprises); Firm Address Book (I 
Enterprises) (Secondary) 


c 


Line of Business 


Open Keyword List 


Change to Intellectual Property Group 
Address Book (Default) (I 
Enterprises); Firm Address Book (I 
Enterprises) (Secondary) 




Product/Services 


Open Keyword List 


Change to Intellectual Property Group 
Address Book (Default) (I 
Enterprises); Firm Address Book (I 
Enterprises) (Secondary) 




Referral 


Users Notes Address 
Book 


Change to Intellectual Property Group 
Address Book (Default) (I 
Enterprises); Firm Address Book (1 
Enterprises) (Secondary) 




Originating 
Attorney 


Users' Notes Address 
Book 


Change to Intellectual Property Group 
Address Book (Default) fl 
Enterprises); Finn Address Book (I 
Enterprises) (Secondary) 




Billing Attorney 


Users' Notes Address 
Book 


Change to Intellectual Property Group 
Address Book (Default) (I 
Enterprises); Firm Address Book (1 
Enterprises) (Secondary) 




Billing 


Open Keyword List 


Stet 




Alternative 


Open Keyword List 


Stet 




Related to 


Open Keyword List 


, Change to Accounting (TMC) Y\ 
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Document History : Modified on 2/20/2001 1 1 :43:24 AM by Patrick Coyne 
Billing Attorney changed to: from 



Modified on 3/22/2000 3:17:15 PM by Shelly D. Silver 

Client name changed to: Jacobs Vehicle Systems, Inc. from Jacobs Vehicle Systems 
Contact address changed to: 22 East Dudley Town Road 
Bloomfield, CT 06002 from 
Billing Attorney changed to: from 



Modified on 1/14/2000 10:14:07 AM by Shelly D. Silver 
Contact name changed to: Frank Stawski from Frank Stawski 
Billing Attorney changed to: from 



Modified on 11/16799 12:01:22 PM by Shelly D. Silver 
Contact address changed to: 22 East Dudley Town Road 
Bloomfield, Connecticut 06002 from 
Billing Attorney changed to: from 



Modified on 7/16/99 9:09:1 1 AM by Patrick Coyne 
Referrel information changed to: James Freeman from 
Originating Attorney changed. Mark Austrian/CSRSfrom 
Fee Basis changed to: Percentage Discount from 
Alternative changed to: 10% Discount from 



Modified on 1/5799 10:10:04 AM by Patrick Coyne 
Contact name changed to: Frank Stawski from 



\ 
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Table 1 
Client Data Form (Revised) 



FIELD NAME 


CURRENT SOURCE 


MODIFIED TO DRAW 
INFORMATION FROM: 


COMMENTS 


Client Name 


Free Text 


Same 




Client Number 


Open Keyword Pick List 


Accounting (TMC) 




Contact Name 


Open Address Entry 
Dialog Box 


Change to Intellectual Property Group 
Address Book (Default) (I 
Enterprises); Firm Address Book (I 
Enterprises) (Secondary) 




VU1II4U AUUi CSS 


wjjcii LJiaiyjfe dua i-jxu y 


i^nange 10 uueueciuai rropeny uroup 
Address Book (Default) (I 
Enterprises); Firm Address Book (I 
Enterprises) (Secondary) 




tLinaii jt oruiai / 




Default email format activated by 
button click at all event view format 
screens that have a document icon. 
The email generated should be 
editable. 


Add (per 6/ 1 I/O l 
meeting) 


Email Address 


Create 


Default email address activated by 
button click at all event view format 
screens that have a document icon. 
The email address generated should 
be editable. 


Add(per6/ll/0l 
meeting) 


Line of Business 


Open Keyword List 


Change to Intellectual Property Group 
Address Book (Default) (I 
Enterprises); Firm Address Book (I 
Enterprises) (Secondary) 




Product/Services 


Open Keyword List 


Change to Intellectual Property Group 
Address Book (Default) (I 
Enterprises); Firm Address Book (I 
Enterprises) (Secondary) 




Referral 


Users' Notes Address 
Book 


Change to Intellectual Property Group 
Address Book (Default) (I 
Enterprises); Firm Address Book (I 
Enterprises) (Secondary) 
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FIELDNAME 


CURRENT SOURCE 


MODIFIED TO DRAW 

TNT?r>R\T ATTOM pDAM« 
ill r urviTiA. i ivJlN r jvWiti. 


COMMENTS 


ungj iiu ling 
Attorney 


users in o tes /\uorcss 
Book 


cnangs to inieiieciuai rropeny oroup 
Address Book (Default) (I 
Enterprises); Firm Address Book (I 
Enterprises) (Secondary) 




Billing Attorney 


Users' Notes Address 
Book 


Change to Intellectual Property Group 
Address Book (Default) (I 
Enterprises); Firm Address Book (I 
Enterprises) (Secondary) 




Billing 


Open Keyword List 


Stet 




Alternative 


Open Keyword List 


Stet 




Related to 


Open Keyword List 


Change to Accounting (TMC) 





Doc. 574582/Version 1-6/22/01-10:39 AM 



May 29, 2001 
Page 7 



Table 2 
Matter Form 



FIELD NAME 


CURRENT SOURCE 


MODIFIED TO DRAW 

INFORMATION 

FROM: 


COMMENTS 


Client Name & 
[Number) 


Free Text Field 


Should drop down 
automatically from the 
client form. 




Matter Name 


Free Text Field 


Matter name field needs 
to be modified to allow 
much longer matter 
names, for example, 150- 
200 characters; if 
possible - allow matters 
to be moved to a different 
client to accommodate 
merger and acquisition 
activity; also, if possible, 
set the system up as an 
amalgamation of a 
keyword pick and free 
text, namely allowing the 
user to pick certain 
categories (such as 
"Quote Advice:"; 

"Patent ( ):"; 

"Patent ( PCT):"; 

'Trademark:"; and an 
option to skip these 
selections). That 
information would be 
followed by a free text 
area allowing the user to 
insert the subject to the 
advice, the title of the 
invention, the name of 
customer or competitor, 
etc. 




Matter No. 


Open Keyword List 


Change to Accounting 
(TMC) 




Matter Creation Date 


Automatically created 


Stet 
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FIELD NAME 


CURRENT SOURCE 


MODIFIED TO DRAW 

INFORMATION 

FROM: 


COMMENTS 


Matter Description 


Free Text Field 


Change the title of the 
"Matter Description" 
field to "Related 
Matters"and pull the 
information from 
Accounting (TMC) as a 
pick list allowing the user 

to select TTplatpd mntfprt: 






Individual User's 
Address Book (Default) 
or rirm Auaress oook 


Firm Address Book 




Billing Attorney 


Individual User's 
Address Book (Default) 
or Firm Address Book 


Firm Address Book / 




Invention Detail 






moved to the project level 
(if possible). 


Client's Billing Number 


Free Text 


Stet J 




Inventor(s) 


Free Text 


Stet [ 
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Table 3 

Project Form - Counseling & Advice 



FIELD NAME 


CURRENT SOURCE 


MODIFIED TO DRAW 
INFORMATION FROM: 


COMMENTS 


Client Name & 
(Number] 


Client Form 


Stet 




Matter Name & 
(Number] 


From Matter Form 


Stet (Highlight field to indicate that it 
is not a text entry field). 




Project 


Automatically Input 


Stet 




Project Creation 
Date 


Automatically Input 


Stet 




Description 


Free Text 


Stet 




Country 


Open Keyword List 


Stet 




A ccnpiQ i<> 
nuUvlU It? 


UjCI AUU1CM L>UUK 

(Default) or Firm Address 
Book 

C 


iiipui ixuiii un uucKcung L/aiauase^ 

Change name from "Associate" to 
foreign Associate?. 




Associate 
Address 


New Text ( 


Change to pull from CPI Database. 




Responsible 
Attorney 


Individual Address Book 
(uerauitj ana rum 
Address Book 


Default to Responsible Attorney for . 
the matter than to Responsible 
Attorney for the client 


Free Text - Stet 


Image 


Free Text 


Remove the "Image" category, only if 
it is not a significant change; move 
the "Attach Image" box to where the 
are to insert text is currently. 




Project Detail 








Affiliated Parties 


Free Text j 


Remove from form 




Counsel 


Free Text 


Move to the left where "Affiliated 
Parties" is currently placed; draw 
information from IP Group Address 
Group (I Enterprises) Database. 


Free Text - Stet 
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Table 4 
Project Form - Litigation 



FIELD NAME 


CURRENT SOURCE 


MODIFIED TO DRAW 
INFORMATION FROM: 


COMMENTS 


Client Name & 
| Number] 


Automatic 


Stet 




Matter Name & 
Number 


Automatic 


Stet 




Project 


Automatic 


Stet 




Project Creation 


Automatic 


Stet 




■ /\nnt v~\f 


(tnon If MnuAM i r*L^ T ict 

v/pcn ivey woru r ick lisi 






Associate 


Individual Address Book 
(Default); Firm Address 
Rook 


Relabel as "Foreign Associate"; draw 
from Intellectual Property Group 
/\uurcss dook \LfCiau\i) 
Enterprises). 




Associate 
Address 


Free Text 


Change to Intellectual Property Group 
Address Book (Default) (I 
Enterprises). 




Responsible 
Attorney 


Individual Address Book 
(Default), followed by 
Firm Address Book 


Firm Address Book 




Comments 


Free Text 


Stet 




Image 




Delete space to enter text and move 
the "Attached Image" icon to that 
location. 




Project Detail 








Case Style 


Free Text 


Stet 




Type 


Closed Keyword Pick List 


Stet 




Civil Action 
Number 


Free Text 


Stet 




Judge 


Free Text 


Stet 




Appearance of 
Counsel 


Free Text 


Change to Firm Address Book 
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FIELD NAME 


CURRENT SOURCE 


MODIFIED TO DRAW 
INFORMATION FROM: 


COMMENTS 


Opposing Party 




Change to Intellectual Property Group 
Address Book (I Enterprises). 




Counsel for 
Opposing Party 


Free Text 


Change to Intellectual Property 
Address Book (I Enterprises). * 




Comments 


Free Text 


Stet 
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Litigation Flowchart 




Dismissed 



Counterclaim 
Answer 



Discovery 



Expert Discovery 



Yes 




^ Pretrial 





r 


Trial. 




r 


Judgment 




r 


Appeal. 
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Table 5 
Project Form - Other 



FIELD NAME 


CURRENT SOURCE 


MODIFIED TO DRAW 
INFORMATION FROM: 


COMMENTS 


Client Name & 
|Number] 


Automatic 


Stet 




Matter Name & 
Number 


Automatic 


Stet 




Project 


Automatic 


Stet 




Project Creation 
uaie 


Automatic 


Stet 




Description 


Free Text 


Stet 




Country 


Open Keyword Pick List 


Stet 




Associate 


Individual User Address 
Book (Default)' Firm 
Address Boom 


Change to Intellectual Property Group 

Address Ronlr (\ Pnt**mriQ#*«^ 




Associate 
Address 


Free Text 


Change to Intellectual Property Group 
Address Book (I Enterprises). 




Responsible 
Attorney 


Individual User Address 
Book (Default) or Firm 
Address Book 


Change to Firm Address Book 




Comments 


Free Text 


Stet 




Image 


Free Text 


Delete Free Text field for "Image" 
and move the "Attach Image" button 
to the location where the text would 
be inserted. 




Project Detail 








Description of 
Project 


Free Text 


Combine with "Event* * and relable as 
"Comments". 




Event 


Free Text 1 


Combine with "Description of 
Project" and relable as "Comments". 
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Table 6 

Project Form - Prosecution: Copyright 



FIELD NAME 


CURRENT SOURCE 


MODIFIED TO DRAW 
INFORMATION FROM: 


COMMENTS 


Client Name & 
[Number] 


Automatic 


Stet 




Matter Name & 
Number 


Automatic 


Stet 




Project 


Automatic 


Stet 




Project Creation 
Date 


Automatic 


Stet 




Description 


Free Text 


Stet 




Country 


Open Keyword Pick List 


Stet 




Associate 


Individual Address 
Book fDefaiiltY Firm 
Address Book 


Intellectual Property Group Address 




Associate Address 


Free Text 


Intellectual Property Group Address 
Book (I Enterprises), 




Responsible 
Attorney 


Individual User Address 
Book (Default); Firm 
Address Book 


Fmn Address Book (I Enterprises). 


~ 


Comments 


Free Text 


Stet 




Image 


Ei-aci Tow* 

rree lext 


Change to eliminate the free text field 
and move the "Attach Image" button 
to the position of the free text field for 
"Image". 




Project Detail 








Serial Number 


Free Text 


Stet 




Type of Application 


Open Pick List 


Stet 




Related 
Application^) 


Free Text 


Stet 




Related Matter 
Numbers 


Free Text 


Change to Accounting (TMC Pick 
List of Matters) 
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FIELD NAME 


CURRENT SOURCE 


MODIFIED TO DRAW 
INFORMATION FROM: 


COMMENTS 


Author 


Free Text 


Intellectual Property Group Address 
Book (I Enterprises). 




Appearance of 

Counsel/Foreign 

Associate 


Individual User Address 
Book (Default); Firm 
Address Book 


Intellectual Property Group Address 
Book. 




Owner 


Free Text 


Stet 




Transfer 


Free Text 


Stet 





Doc. 574582/Version 1-5/29/01-2:09 PM 



Create Next Action 



Click here to create Next Action for this Project Create Actfon| 



May 29, 2001 
Page 16 



FIELD NAME 


CURRENT SOURCE 


MODIFIED TO DRAW 
INFORMATION FROM: 


COMMENTS 


Serial Number 


Free Text 


Stet 




Related Matter 
Nos. 


Free Text 


Change to pull from Accounting 
(TMC) 




Classes (POFA, 
S/A) 


Free Text 


Stet 




Type of 
Application 


Free Text 


Change to open keyword pick list. 
Choices on the pick list should be: 
provisional, non-provisional 
continuation, divisional, and 
continuation-in-part, re-examination, 
re-issue. 




Related 
Application^) 
(Serial Nos.) 


Free Text 


Stet 




Power of 
Attorney 


Help and Keyword List 


Change to Intellectual Property Group 
Address Group (apparently the 
information cannot be drawn from 
Docket (CPIN) which would be the 
preferable source). 




Patent Detail 


Dialog Box Requesting 
Filing Date; Termination 
Date; Reason; and 
Maintenance 


Change to split out each row 
separately in lieu of the "Patent Detail 
Dialogue Box" and draw the requisite 
information from Docket (CPI) 
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of 2 



How to Get a U.S. Patent. 



Define the 
Invention. 



Preliminary 
Patentability 
Search. 






^mir^atkmS" 
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Table 8 

Project Form - Prosecution: Trademark 



FIELD NAME 


CURRENT SOURCE 


MODIFIED TO DRAW 


COMMENTS 


Client Name & 
(Number) 


Automatic 


Stet 




Matter Name & 
Number 


Automatic 


Stet 




Project 


Automatic 


Stet 


* 


Project Creation 
Date 


Automatic 


Stet 




Description 


Free Text 


Stet 




Country 


Open Keyword Pick List 


Stet 




Associate 


Individual User Address 
Book (Default); Firm 
Address Book 


Change to "Foreign Associate"; 
change to Intellectual Property Group 
Address Book (I Enterprises). 




Associate 
Address 


Free Text 


Change to Intellectual Property Group 
Address Book (I Enterprises). 




Responsible 
Attorney 


Individual User Address 
Book (Default); Firm 
Address Book 


Change to Firm Address Book (I 
Enterprises) 




Comments 


Free Text 


Stet 




Image 


Free Text 


Change to delete the "Image" text 
entry field and move the "Attach 
Image" button to the location where 
the text entry field is currently. 




Project Detail 








Serial Number 


Free Text 


Stet 




Type of 
Application 


Open Keyword Pick Lists 


Stet 




Related 
Application(s) 
(Serial Nos.) 


Free Text 


Stet 




Related Matter 
Nos. 


Free Text 


Draw from Matter Number list in 
Accounting (TMC) 
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FIELD NAME 


CURRENT SOURCE 


MODIFIED TO DRAW 
INFORMATION FROM: 


COMMENTS 


Trademark Name 


Free Text 


Combine with next row labeled 
"Mark" into one field and maintain as 
a free text field. 




Mark 


Free Text 


Combine with Trademark name field 
into one field and rename as "Mark". 




Goods/Services 


Free Text 


Stet 




Classes 


Free Text 


Combine with "Classes (POFA/FA)" 
field and label "Classes" 




Owner 


rree i exi 


unange 10 intellectual rToperty uroup 
Address Book (I Enterprises). 




Classes 
(POFA/FA) 


Free Text 


Change to combine with "Classes" 
category into a single category labeled 
"Classes". ~ 




Trademark Detail 


Dialog box of Trademark 
Detail, namely: date of 
first use; first use; filing 
date; termination; date; 
house? and renewal. 


Change to make each of these entries 
separate categories and draw the 
information directly from Docket 
(CPI). 
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How to Federally 
Register a Trademark 



Identify Brand. 



Search. 



i 
} 



Clear. 



^Apprytb-Kegfcter,, 




1 


f 


\ Rejected J 




f 



Yes 


r 


Appeal, 


Refite, or ; 


Abandon 


... ~K 






2 
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SYSTEMS DEPARTMENT |CSRS |Friday. May 25. 2001, 13:09:01 1 



May 29, 2001 
Page 19 



Table 9 
Event Form (Revised) 



r 



FIELDNAME . 


CURRENT SOURCE 


MODIFIED TO DRAW 
INFORMATION FROM: 


COMMENTS 


Client Name & 
[Number] 


Automatic 


Stet 




Matter & Matter 
Number 


Automatic 


Stet 




Project 


Automatic 


Stet 




Date Event Created 


Automatic 


Stet 




Event Date 
(mm/dd/yy) 


Free Text 


Stet 




^tteston^Sjt^^ 


Closed Keyword Pick 
List 


Keyword pick list. 


Revised 6/11/01. 


Event Description 


Free Text 


Combine with "Event Name" to insert 
milestones automatically once they 
have been reached in the CPI Docket 
Database or, alternatively, when the 
milestone is not present in the CPI 
Database to allow a free text entry. 


Revised 6/11/01. 


Responsible 


Individual User Address 

Ronlr fnpfimltY Firm 

Address Book 


Change to Intellectual Property Group 
Auaress do ok \y .enterprises )» 




Routing 
Information 


Open Keyword Address 
List 


The open keyword address list for this 
field is incorrect These are entries 
relating to patent and trademark 
prosecution and are not routing 
information; change to Intellectual 
Property Group Address Book 
(default) with the option of using the 
Firm Address Book (I Enterprises); as 
well as to supplement the routing the 
information with other email 
addresses that are added manually by 
the user. 
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FIELDNAME 


CURRENT SOURCE 


MODIFIED TO DRAW 

III r UKJVIA 1 1UFN r KUIVK 


COMMENTS 


Flowchart 




Add a 'flowchart" button before the 
"Event Name'' category. Flowcharts 

Will Dc aValldOlc Only IOi uie 

Prosecution: Patent; Prosecution: 
Trademark; Litigation; and Due 
Diligence project types. If the project 
is of another type, the Flowchart 
button should not appear. QSMI will 
be provided copies of all 4 Flowcharts 
under separate cover. 




Anticipated Date to 
Achieve Next 
Milestone 




Prior to "Event Name" add another 
row called "Anticipated Date to 
Achieve Next Milestone". 





When I have attempted to insert new tasks into several different projects I receive an error 
code in notes. The error code reads: "Please select the associated project before creating a new 
task. If you have already selected a project, you are not authorized to create a task." In each case 
I have already selected a project, yet, I am not being permitted to enter a task. This is not part of 
the approved functionality of the software. In any event, as the Section Manager I should have 
authority to enter a task on any project. Please remove this block. 
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Table 9 
Event Form 




FIELD NAME 



Client Name & 
[Number] 



Matter & Matter 
Number 



Project 



Date Event Created 



Event Date 
(mm/dd/yy) 



CURRENT SOURCE 



Automatic 



Automatic 



Automatic 



Automatic 



Free Text 



Closed Keyword Pick j fl 
List 



MODIFIED TO DRAW 
INFORMATION FROM: 



Stet 



Stet 



Stet 



Stet 



Stet 



This field is dysfunctional. The intei 
was to allow the user to pick a 
selection of entries off of a 
keyword list and have that be 
starting point for a narrative 
description to which the usef would 
add additional information such as 
"received telephone call/from client 
re:" after which the user would input 
the information discussed with the 
client on the telephone call. This 
field, however, he 
dysfunctional fon&ome time. Change 
to closed keyword pick list that maps 
a limited number of event types from 
CPI Docket fi6r patent and trademark 
applicationyand litigation matters, 
while also Allowing a selection to 
enter free/text in lieu of the automated 
entry. The automated entry will 
override as a default characteristic 
when flie CPI Database includes an 
entn/for that event type and the CPI 

base does not include an entry 
fo/ that event type, the only option the 
r will be given at this stage is a 
j text entry field. 



COMMENTS 



^ 



Vgrt io nl SHWOl 3:09 PM^ 
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Table 10 
Task Form 



FIELD NAME 


CURRENT 
SOURCE 


MODIFIED TO DRAW 
INFORMATION FROM: 


COMMENTS 


Client Name & 
|Number] 


Automatic 


Stet 




Matter & Matter 
Number 


Automatic 


Stet 




Project 


Automatic 


Stet 




Task Name 


Free Text 


Combine the "Task Description" and 
"Task Name" fields into a single field 
and change the name of this new-free 
text-field to "Comments" 




Task Creation Date 


Automatic 


Stet 




Projected Due Date 


Free Text 


Stet 




Estimated Time to 
Complete 


Free Text 


Stet; this entry should be in hours. 




Task Priority Closed 


Keyword Pick List 


Stet 




Task Status 


Automatic 


Stet 




Task Description 


Free Text 


Combine the "Task Description" and 
"Task Name" fields into a single-free 
text- field labeled "Comments". 




Assigned To 


Individual User 
Address Book 
(Default); Firm 
Address Book 


Change to Intellectual Property Group 
Address Book (I Enterprises) 
(default); Firm Address Book 
(secondary) 




Routing List 


There is no field in the 
"Routing List" row in 
the New Task Form. 


This is an error. The routing list 
should be drawn from the same 
sources as the routing lists for the 
project, namely, Intellectual Property 
Group (1 Enterprises) (default); Firm 
Address Book (I Enterprises) 
(secondary); followed by a free text 
area to enter additional addresses 
manually. 
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FIELD NAME 


CURRENT 
SOURCE 


MODIFIED TO DRAW 
INFORMATION FROM: 


COMMENTS 


Reminders 


Not present in current 
configuration. 


After "Estimated Time to Complete" 
add a row called "Reminders" with a 
closed pick list that allows for 
multiple entries to be selected for 
each of the different project forms. 
The selection should be: "one day; 
one week; two weeks; one month; two 
months; three months". The user 
should be able to select any one or 
more of these reminder fields and the 
system should automatically print a 
reminder of the due date and subject 
of this task for the user and send them 
an email automatically notifying them 
of the reminder. 




Task Closure 




Modify to allow closure only by the 
responsible attorney for that project 
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Table 11 

Project Form - Transactional/Due Diligence 



FIELD NAME 


NEW FORM 


MODIFIED TO DRAW 
INFORMATION FROM: 


COMMENTS 


Client Name & 
|Number] 




Automatic 




Matter Name & 
Number 




Automatic 




Project 




Automatic 




Project Creation 
Date 




Automatic 




Description 




Free Text 




Country 




Open Keyword List of countries used 
hi umci ltinns* 




Associate 




from "Agent" field in Docket (CPI). 




Associate Address 




Drawn from the "Agent" field in the 
Docket (CPI). 




Responsible 
Attorney 




Intellectual Property Group Address 
Book (I Enterprises) (default); Firm 
Address Book (I Enterprises) 
(secondary) 




Comments 




Free Text 




Image 




"Attach Image" icon 




Project Detail 








Closing Date 




Free Text 




Comments 




Free Text 




Role 




Insert two buttons, only one which 
may be activated: "Acquire or" or 
"Target". 




Other Party to 
Transaction 




Intellectual Property Group Address 
Book (I Enterprises) (default); Firm 
Address Book (secondary). 
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r lEiLii/ /ViVl £, 


M1TW ETYDA/T 
iHttW rSJisirl 


MUDIr lk,u 1 0 DRAW 
INFORMATION FROM: 


COMMENTS 


Co-Counsel 




Intellectual Property Group Address 
Book (I Enterprises) (default); Firm 
Address Book (I Enterprises) 
(secondary). 




Other Party's 
Counsel 




Intellectual Property Group Address 
Book (I Enterprises) (default); Firm 
Address Book (I Enterprises) 
(secondary). 





Doc. 574582/Version 1-5/29/01-2:09 PM 



Enter Diagram Title Here Due Diligence FlowchartACD 



Due Diligence 

/ Identify Target J 



\ 


r 




Assemble and 






Review Documents 




\ 


r 




Identify Assets (patents, 


trademarks, copyrights, 


trade secrets) 




f 




Evaluate Issuance; 






Term; Title 





I 



Foreign Protection! 



Claims 



Scope of 
Operations 



Establish Freedom 
to Operate 




Evaluate effect 
M on Transaction 



/ 



Page 1 of 1 



1 


r 


Schedule All 1 
Deffitiencies 1 
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TRAQCS 

(Tracking, Reporting, and 
Quality Control System) 



Practice Management Application 



Patrick J. Coyne, Esq. 
Collier Shannon Scott, PLLC 
3050 K Street, N.W. 
Washington, D.C. 20007 
(202) 342-8606 (phone) 
(202) 342-8451 (fax) 
pcoyne@colliershannon.com (email) 
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QSMI MEETING OF 5/31/01 

I. Agenda: 

A. Review Project Requirements: 

1 . Old (clean up/modify) per memo; 

2. New (add functionality for Documentation; Project Management; and 
Budgeting). 

B. Progress to date; 

C. Milestones/Project Plan; 

II. Budget Functionality: 

A. Options: 

1 . Crystal Reports ("odbc driver"); 

2. Excel (odbc); 
1. Notes; 

4. SQL Database; 

5. Notes database will be moved to a different server. Everything connected 
to this database will be set up in one separate server. 

B. Accounting Issues: 

1 . Set TMC as Default source for information; 

2. TMC (accessible through the intermediate database): 

a. Monthly fees and expenses; 

b. Accrued fees and expenses. 

3 . Able to be modified from Default values at each stage; 

4. Budgets = Function of: Type of projects; Complexity; 
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TMC 
Elite 

CMS open 



SQL 



6. 



b. 



Budget Models: 

a. Due Diligence (2 budgets) (with and without freedom t operate) 
Patent Case (3 budgets) (small, medium, large) 
Trademark Case (2 budgets) (medium, large) 
Patent Application (2 budgets) (medium, large) 
Trademark Application (1 budget) 
PCT(1 budget) 

Foreign Trademarks (1 budget) 
Other - User Defined with ability to save as Template 



Flowchart 



TMC 



Intermediate SQL i 
Database 



• Notes 

SQL; cold fusion 
HTM; XML 



- Crystal Reports 
-XML 
-HTML 

- Excel 
-WP 



Tracking 
Database 



-^Li- 



Report Format 
(Excel, etc.) 



(SQL and TMC are "open" formats. Whatever financial system is used will be 
compatible with TMC.) 
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7. Final output that needs to be linked in: 
a. Output 

(1) SQL is a relational database; 

(2) Spreadsheets/Tables (Maria is to prepare a spreadsheet like 
Leap's (without the data) for Carrington; give another copy 
to Pat Mansuy (with data is ok); 

(3) Graphic ("Silo") indicator (needs a different silo for each 
application) 

(a) One silo is for Budget Milestones labeled with 
amounts when milestones are reached; 

(b) Other silo is for Accrued Cost (this should come 
from TMC; when the bill is sent). 

III. Proj ect Management: 

A. Project Gateway (Notes) (Collier has 30 licenses of this.) 

1 . Project tasks in calendar or palm pilot; 

2. Gant printout charts; 

3. Shareable; 

4. Less expensive than Microsoft Project. 

B. MS Project (Visual Basic/C); 

C. Pert; 

D. Gant; 

E. TreeAge; 

F. Excel / W/P Report Format. 
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IV. Documentation: 



- doc 

- wpd 
-pdf 
-tif 



Paper/E^mmunications 



Scan 



7 



automatic 



judgement 



r Stored 7 
Internal | 



Event 



External 



1— - 4 Eveni j 



4> 



Archived 



V. Deliverables: 



A. Collier Shannon Scott: 

(^J^) Budget models (milestones, total budget amounts for each variation); 
y 2. Control Vocabulary; 

3 . Field Mapping (Docket - Notes - Flowcharts); 
y 4. "Blank" Leap spreadsheet (from Maria, attached). 

B. QSMI: 



v*/ i a" 



1 . Schedule meeting to work on control vocabulary list on all project types 



and milestones; 

(^^? Define Project Management Functionality Restraints; £> ^ A <y -tc ) 

f^-J React to 5/3 1 meeting with project requirements based (with Pat Munsay); 
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4. Identify and resolve any remaining issues with the "Look and Feel". 
C. Next meeting scheduled for Monday, June 11 th at 1 1:00 a.m. (Conf. Room 1). 
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TRAQCS 

(Tracking, Reporting, and 
Quality Control System) 



Practice Management Application 



Patrick J. Coyne, Esq. 
Collier Shannon Scott, PLLC 
3050 K Street, N.W. 
Washington, D.C. 20007 
(202) 342-8606 (phone) 
(202) 342-8451 (fax) 
pcoyne@colliershannon.com (email) 
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QSMI MEETING OF 6/11/01 

• Table 9 -Event Form: 

To have a field with both "Free Text" and "Milestones" is problematic. QSMI 
wants a "Milestones" field. Some of the milestones will be coming from the CPI 
list. The milestones information is to be controlled by Doug for consistency. 

Change "Event Name" field to "Milestone". 

Change "Subject" to "Event Description". 

Use Keyword Pick list for "Milestones" . 

• We may need an Event Form for each separate project; QSMI to confirm. 

• Control List for Patent Mapping, Trademark Mapping were given to QSMI as a sample 
for the wording to be used. 

• Collier to provide to QSMI Budget Models. 

• QSMI to generate functional requirements from flowcharts that were provided (4), 

• QSMI to investigate Potential Restraings: 

- TMC - QSMI will meet with Larry Beabes and resolve; 

• Issues with "Look and Feel" : 

QSMI confirmed no problem implementing May 29, 2001 memo. 
IP Section address list to be given to QSMI by Collier. 

- Address Lists: 

Users; 
IP Section; 
- Firm. 
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• Work from Memo dated 5/29/0 1 : 

Tab 2: 

- Allow matters to be moved to a different client to accommodate merger 
and acquisition activity (this is fixable, per QSMI); 

"Matter Description" - "related matters" is this doable? QSMI will have to 
see what they are allowed to do. This could be an open keyword pick list. 

Tab 3: 

"Foreign Associates" - QSMI will confirm it is pulling from the proper 
source (Docket). 

Tab 11: 

- Due Diligence form. 

• Next Steps: 

QSMI will meet with Larry Beabes, results of meeting due to CSS by 6/22; 
QSMI will meet with Pat re platform issues, due to CSS by 6/22; 
Next meeting scheduled for 6/25 @ 1 1:00 a m.; 
CSS to provide budgets: 

- dollar amounts; 

- icons; 

format (bar chart graphs on Excel) to be given with: 

• actual milestone; 

• cost for milestone; 

• cumulative cost; 

• which milestones get grouped together - stage; 
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• cummulative stage; 

• totals. 

Maria will provide revised Tables 1 and 9 to everyone (attached). 
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Table 1 
Client Data Form (Revised) 



FIELD NAME 


CURRENT SOURCE 


MODIFIED TO DRAW 
INFORMATION FROM: 


COMMENTS 


Client Name 


Free Text 


Same 




Client Number 


Open Keyword Pick List 


Accounting (TMC) 




Contact Name 


Open Address Entry 
Dialog Box 


Change to Intellectual Property Group 
Address Book (Default) (1 
Enterprises); Firm Address Book (I 
Enterprises) (Secondary) 




Contact Address 


Open Dialog Box Entry 


Change to Intellectual Property Group 
Address Book (Default) (I 
Enterprises); Firm Address Book (I 
Enterprises) (Secondary) 




Email Address 


Create 


Default email address or primary 
contact activated by button click at all 
event view format screens that have a 
document icon. The email address 
generated should be editable. 


Add (ner 6/11/01 
meeting) 


Email Format 
(Selection) 


Create 


Default email format activated by 
button click at all event view format 
screens that have a document icon. 
The email generated should be 
editable 


Add (per 6/11/01 
meeting) 


Line of Business 


Open Keyword List 


Change to Intellectual Property Group 
Address Book (Default) (I 
Enterprises); Firm Address Book (I 
Enterprises) (Secondary) 




Product/Services 


Open Keyword List 


Change to Intellectual Property Group 
Address Book (Default) (I 
Enterprises); Firm Address Book (I 
Enterprises) (Secondary) 




Referral 


Users' Notes Address 
Book 


Change to Intellectual Property Group 
Address Book (Default) (I 
Enterprises); Firm Address Book (I 
Enterprises) (Secondary) 
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FIELD NAME 


CURRENT SOURCE 


MODIFIED TO DRAW 
INFORMATION FROM: 


COMMENTS 


Originating 
Attorney 


Users' Notes Address 
Book 


Change to Intellectual Property Group 
Address Book (Default) (1 
Enterprises); Firm Address Book (I 
Enterprises) (Secondary) 




Billing Attorney 


Users' Notes Address 
Book 


Change to Intellectual Property Group 
Address Book (Default) (I 
Enterprises); Firm Address Book (I 
Enterprises) (Secondary) 




Billing 


Open Keyword List 


Stet 




Alternative 


Open Keyword List 


Stet 




Related to 


Open Keyword List 


Change to Accounting (TMC) 





Doc. 574582/Veniob I -6/25/01 — 1 0: 36 AM 



May 29, 2001 
Page 20 



Table 9 
Event Form (Revised) 



FIELD NAME 


CURRENT SOURCE 


MODIFIED TO DRAW 
INFORMATION FROM: 


COMMENTS 


[Number] 


r\ 11 LUlllaLIU 






Matter & Matter 
Number 


Automatic 


Stet 




Project 


Automatic 


Stet 




Date Event Created 


Automatic 


Stet 




Event Date 
(mm/dd/yy) 


Free Text 


Stet 




Event Name 


Closed Keyword Pick 
List 


Change "Event Name" to 
"Milestone"; use closed keyword pick 
list, based on Milestones provided. 


Revised 6711/01. 


Event Description 


Free Text 


Combine with "Event Name" to insert 
milestones automatically once they 
have been reached in the CPI Docket 
Database or, alternatively, when the 
milestone is not present in the CPI 
Database to allow a free text entry. 


Revised 6711/01. 


Responsible 
Attorney 


Individual User Address 
Book (Default); Firm 
Address Book 


Change to Intellectual Property Group 

AdHreQQ RnnW CI Pntf*mricp<A 




Routing 
Information 


Open Keyword Address 
List 


The open keyword address list for this 
field is incorrect. These are entries 
relating to patent and trademark 
prosecution and are not routing 
information; change to Intellectual 
Property Group Address Book 
(default) with the option of using the 
Finn Address Book (I Enterprises); as 
well as to supplement the routing the 
information with other email 
addresses that are added manually by 
the user. 
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FIELDNAME 


CURRENT SOURCE 


MODIFIED TO DRAW 
INFORMATION FROM: 


COMMENTS 


Flowchart 




Add a "Flowchart" button before the 
"Event Name" category. Flowcharts 

Will Ka 0\f Ql1oV>lf» r\Y\ X\t fs\r fko 

wiu do dvdiiaDic oniy ior roe 
Prosecution: Patent; Prosecution: 
Trademark; Litigation; and Due 
Diligence project types. If the project 
is of another type, the Flowchart 
button should not appear. QSMI will 
be provided copies of all 4 Flowcharts 
under separate cover. 




Anticipated Date to 
Achieve Next 
Milestone 




Prior to "Event Name" add another 
row called "Anticipated Date to 
Achieve Next Milestone". 





When I have attempted to insert new tasks into several different projects I receive an error 
code in notes. The error code reads: "Please select the associated project before creating a new 
task. If you have already selected a project, you are not authorized to create a task." In each case 
I have already selected a project, yet, I am not being permitted to enter a task. This is not part of 
the approved functionality of the software. In any event, as the Section Manager I should have 
authority to enter a task on any project. Please remove this block. 
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TRAQCS 

(Tracking, Reporting, and 
Quality Control System) 



Practice Management Application 
Progress Meeting 
(June 25, 2001) 



Patrick J. Coyne, Esq. 
Collier Shannon Scott, PLLC 
3050 K Street, N.W. 
Washington, D.C. 20007 
(202) 342-8606 (phone) 
(202) 342-8451 (fax) 
pcoyne@colliershannon.com (email) 
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QSMI MEETING OF 6/25/01 

I. Event Form: 

A. QSMI confirmed that the current "Event Form" is usable for all Projects; 

B. Pick list presented will be different depending on the Project type. 

II. Budget models still need to be given to QSMI (in spreadsheet format with milestones and 
budget amounts): 

A. Patent: 

1. Large case - $38,500; ' 

2. Small case - $25,500. / 

B. Trademark: 

1 . Large case; y 

2. Small case. / 

C. Opposition/Cancellation: 

1. Large; 

2. Small. ' 

D. Litigation: 

1. Large; * 

2. Medium; / 

3. Small. / 

E. Due Diligence; * 
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F. Generic: 

1 . User Defined Milestones; 

2. User Defined Budget. 

III. How can Microsoft "Project" be used in connection with the database? QSMI to look 
into this and report. 

IV. "Foreign Associates": QSMI to confirm Foreign Associates being pulled from Docket 
(CM). 

V. "Related to" Field: 

A. Not at the project level; 

B. Client numbers at Client level - needs to pull from TMC since other client 
numbers are available at the TMC; 

C. Matter Numbers at Matter level - should list other matters related that are open for 
that client These should be coming from TMC; 

D. Retain availability to set up our own client/matter, although the default source 
should be TMC; 

E. TMC to dump to the Database only matters starting with "00600", but giving us 
ability to add other matter numbers to Database (as well pull Budget and from 
TMC on all matters in database), on our own; 

F. Flag duplicate matter numbers with an email to the Docket Manager and the 
Responsible Attorney alerting them re the duplicity of matters, rather than 
prohibiting their entry. 

VI. Status of Work in Progress: 

A. "Task Closure" problem - Solved 

B. Process charts - In progress 

C. Event document - Resolved 

D. Control vocabulary - Received 
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E. 



Process charts - 



Ongoing 



F. 



SQL Database - 



Ongoing 



G. 



Interface cleanup ("Look & Feel") - 



Finished 



H. 



Address Book - 



CSStogivetoQSMI 



L 



Event routing - 



QSM1 will restore in-house routing 



J. 



Due Dihgence sub-form 



Done 



K. QSMI needs to speak with Pat Mansuy re schedule in terms of the 
outstanding issues: 

1. Crystal Reports; 

2. TMC; 

3. Platform (SQL Database). 
VII. Next Steps: 

A. PJC to give QSMI budgets and milestones by My 6 th ; 

B. QSMI to talk with Larry Beabes; 

C. QSMI to meet with Pat Mansuy re feasibility to integrate Microsoft 
Project view of each project at the project level based on SQL Database. 

D. Maria to make up new IP address list for QSMI by Friday, 6/29, with file 
name link and server number. 

E. Matter Description Wrapping: QSMI will check matrix to allow 
description to have up to 200 characters. 

F. Mapping sheets - Doug needs to add "Field Name" to QSMI 
corresponding to the CPI entry and values. 

G. Next meeting scheduled for Weds., July 1 1 * @ 2:00 p.m. 
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FLOW CHART DESCRIPTION 


File Provisional Application 


Filing Receipt issued 


Office Action i 


Respond to Office Action 


Final Office Action 


Respond to Final Office Action 


Appeal 


Abandon 


Published for Opposition 


Opposition Filed 


Notice of Allowance 


Extension of Time to File j 


File Statement of Use and 


Certificate Issues 


Affidavit of Continued Use and 
Incontestability 6-yr. 


Renewal Application 


NOTES ENTRY TO TRIGGER 


EVENT: Filed Trademark 
Application 


EVENT: Received Filing 
Receipt 


| EVENT: Received Office Action 


| EVENT: Filed Response to 
j Office Action 


EVENT: Received Final Office 
Action 


EVENT: Filed Response to 
Final Office Action 


EVENT: Filed Appeal 


EVENT: Filed Express 
Abandonment 


EVENT: Received Notice of 
Publication 


EVENT: Filed Notice of 
Opposition 


EVENT: Received Notice of 
Allowance 


EVENT: Filed Extension of 
Time to File Statement of Use 


EVENT: Filed Statement of Use 


EVENT: Received Certificate of 
Registration 


EVENT: Filed Affidavit of 
Continued Use 6-yr. 


EVENT: Filed Renewal 
Application & Affidavit of 
Continued Use 10-yr. 


CPI ENTRY 


Docket Application 


Expect Filing 
Receipt 


I REJECTION 


Filed Response to 
Office Action 


jFINAL REJECTION 


Filed Response to 
Rnal Office Action 


APPEAL BRIEF 


EXPECT 
ABANDON 


OG PUBLICATION 


OPPOSE OG 
MARK 


EXPECT 
ALLOWANCE 


Enter Date in 
Allowance 


Filed Statement of 
Use 


Enter Reg. No. and 
Date 


Filed Affidavit of 
Cont. 6th Year | 


Filed Renewal 
application & 
Affidavit of 1 
Continued Use 


PROSECUTION 
DESCRIPTION 


File Application 


Filing Receipt 


1 Office Action 


Respond to Office Action 


Final Office Action 


Respond to Final Office 
Action 


Appeal 


Abandon 


Notice of Publication 


File Opposition 


Notice of Allowance 


Ext. of Time to File 
Statement of Use 


File Statement of Use 


Certificate of Registration 


Affidavit of Use 


Renewal 

i 
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I. Status of Look and Feel Modifications: 

A. All Done except Reminders from May 29 Memo (Tab 10); 

B. Replication - Provide QSMI a copy to avoid having to come down each week 

C. Glitches: 

1 . Task Closure - needs to be implemented 

2. Deadlines not entry dates 

D. Email Notification: 

1 . Was Automatic, then changedto "semi-automatic", then finally fully manual; 

2. Restore semi-automatic notification to Responsible Attorney; Work Partner 
(Pairing); Doug Washington: 

a. New Matter Number; 

b. New or Changes to Events -for Milestones Only; 

c. New or Changed Tasks; 

3. Work Partners: Employ Look Up Table to automatically pull into the 
Responsible Attorney field at the Matter and Project level the Work Partner 

E. Client Data Form (Revised Tab 1 attached to June 1 1 , 2001 Memo: email format at 
client form, 

F. Email Template text: pjC 

G. Address Books: Everything into Notes Address Books 

II. Budgets ~ Delivered - Maria will clean up and email revised table MRC 

A. Patent, 

B. Trademark, 

C. Opposition, 
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D. Litigation, 

E. Due Diligence 

III. Flowcharts: 

A. QSMI will send final drafts QSMI 

B. Review and Confirm PJC 

IV. Accounting (TMC): 

A. Web Enabled Functionality 

1 . On our Server - Internal Access 

2. Can Provide Client Access 

3 . Modest Cost Increment $3 ,000 - 4,000 

4. Need One Accrued cost number from TMC 

B. Two Components: 

1 . Budget - need to have a spreadsheet behind it that is editable 

2. Accruals 

C. Templates but they need to be Editable — 

1 . May need a Database behind the Template 

2. Fully editable 

3. Automatically adjust the relative size of the slices on the budget silo 

D. Pat to Investigate feasibility of TMC proposal PM 

E. QSMI to explore with Pat options 

for editable spreadsheet backup to Budget component QSMI 
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VI. 



Microsoft "Project": 
A. Options: 



1. 

2. 
3. 
4. 



Update information from Notes to SQL to Access to Project 
Manually prepare a GANT Chart 
Microsoft "Project Central"? (25,000) 



SQL -- Cold Fusion - GANT 

(view only on demand, not maintained) 



B. 



Pat will try and build one from Die' 
1. Edit dates in 



2. Maintain separate GANT for each project 

3. Update nightly 
Next Steps: 

A. Confirm Look and Feel Changes 



B. 

C. 
D. 
E. 



Process Charts for Review 

( 

Replication: Refresh all documents 

Project/Budget Strategy (SQL to Cold Fusion to GANT) 

Next Meeting: August 7, 2001 @ 2:00 p.m. 



Preferred Solution 



QSMI/DMW 
QSMI 
QSMI 
PM 
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Exhibit Z 



TRAQCS 

(Tracking, Reporting, and 
Quality Control System) 

Practice Management Application 
August 7, 2001 



Patrick J. Coyne, Esq. 
Collier Shannon Scott, PLLC 
3050 K Street, N.W. 
Washington, D.C. 20007 
(202) 342-8606 (phone) 
(202) 342-8451 (fax) 
pcoyne@colliershannon.com (e mail) 
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I. Process Chart: 

II. Milestones: 

A. Events and Milestones: 



1. 


Patent: 


Done 


2. 


Trademark: 


Done 


3. 


Litigation 


PJC 


4. 


Due Diligence 


PJC 


5. 


Copyright 


PJC 


6. 


Counseling and Advice 


PJC 


7. 


Other 


PJC 



B. Milestone Event = Closed Ended Keyword Pickword PJC 

C. Event Description = Free Text 

D. Add Icon to the Events that are Milestones in the "Milestone 
Event" field in the view; 

E. Conflicts resolved = f(milestone events only); none for events 

1 . Patent and Trademark - CPI controls that Milestone 

2. Anything Else (Litigation , etc. ), and non-milestone events - 
no conflicting resolution based on milestone status 

3. All milestone events - when attempt to enter a conflicting 
milestone - alert the person who is trying to do the 
conflicting second key entry: Error Dialog box - "Milestone 
already reached - cannot enter duplicate entry" 
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F. Leave "Milestone" and "Event Description" fields separate; 
override from CPI; Icon to indicate that the event is a milestone; 

III. Look and Feel Changes: 

A. Most are Completed 

B. Replication Failure Occurred 

C. Expected Resolution: 8/20/01 

IV. Process Charts: 

A. Due Diligence 8/20/01 

B. Litigation Done 

V. Project/Budget Strategy 

A. Options: 

1 . Notes to SQL to Access to Project (Project Gateway) 

2. Manually 

3. SQL to Cold Fusion to GANT 

a. Can do Past Milestones 

b. Working on Project Plan 

4. Project Central 

B. Status: Pat Still exploring PM 

C. Roll out with simple link of the Project GANT Chart at the Project 
Level to MS Project on Network (Document Store on SANS) 
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VI. Accounting: Resolved 

VII. Next Steps: 

A. Clean Up: ok 

B. Events/Milestones: ok 

C. Budget Icons: ok 

D. Target Date: Sept. 15,2001 

E. Next Meeting: August 20, 2001 
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Exhibit AA 



IP Agenda/TRACQS Final Status Report 

I. Look And Feel Changes 

A. Email Notification 

1 . Completed and delivered. 

2. Responsible Attorney gets email notification of New Matters, New Events and changes to 
Milestone Events, and New Tasks. 

3. Working Partner gets email notification of Matters, New Events and changes to Milestone 
Events, and New Tasks. 

4. Docket Manager email notification of Matters, New Events and changes to Milestone Events, 
and New and Changed Tasks. 

5. Email template for clients - Attorneys are going to have to manually send email. 

B. Duplicate Matters 

1 . Completed and delivered. 

2. Email is now sent to Responsible Attorney and Docket Manager about duplicate matter. 

3 . Attorney and Work Partner are able to enter duplicate matters. 

C. Re-assigning Matters 

1 . Completed and delivered. 

2. Button located in default view of IP Agenda, anyone with Docket Manager role in Access List 
can use this button. 

3. Selected Matters can be moved to different Clients. 

4. Selected Projects can be moved to different Matters. 

II. IP Agenda Data Transfer Expansion 

1 . Completed and delivered. 

2. Foreign Associate Address in CPI now pulled into Foreign Associate field for Patent/Trademarks. 

3. Events are now created if the CPI Entry is one of the selected IP Agenda Event milestones - for 
bom Patent and Trademark CPI entries. 

III. Name/Address Lookups 

Name/Address book lookups were designed based on the following assumptions from the 8/20/01 
Meeting: 

1. Completed, IP Agenda now has new lookups. 

2. IEnterprises Address book can be selected from the Notes Address dialog box in IP Agenda - 
Attorneys and others can choose an attorney or contact from this address book wherever the dialog 
box appears on forms. 

3. The Address for contacts on the Client and Project forms will be pulled from one of three Address 
Books, the Firm Address Book, the IEnterprises Address Book, and the users Address Book 



IV. TMC Accounting Data Transfer 

1 . Currently looking into TMC Data export file containing Client and Matter numbers 

2. Client/Matter Number/TMC Data export file records link is not yet designed 

V. Budgets 

1 . Can select the Budget Type and current Budget stage from a drop-down list box, and can either 
select the default dollar amount that corresponds by clicking a button, or type in the amount 
manually if desired; The budget information is located in the Project Details section.of the Project 
form. 

2. Functionality has been completed to allow Budget templates to map to the current Milestone 
Events for specific project types per requirements. This functionality can be deployed and 
finalized when the work on the budgets is approved. 



3. Currently, only the fields for the Budget templates, is installed. Will send down the rest of the 
Budget templates controls when the work on the Budget Charts is approved. 

VI. Process Charts 

1 . Completed & Delivered. 

VIL Client Views 

1 . Completed & Delivered 

2. The Look & Feel of web interface was purposefully left very basic with the plan to wait on 
feedback of exactly how the interface should look, and if the graphical design should be 
coordinated with the graphical design of the planned portal page? 



